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L'Europe, notion vaste et flou, réalité et utopie, repré- 
sente avant tout pour nous, simples particuliers, une 
certaine idée de la liberté. Celle de recevoir et communi- 
qur des informations entre habitants de différentes na- 
tions. Au delà des grands discours concernant les pro- 
blèmes agricoles et industriels, il existe un tissu social 
d'où émergent des groupuscules ayant des intérêts communs. 
C'est le cas notamment des groupements d'utilisateurs du 
langage FORTH. Ces groupes existent partout en Europe, 
mais le seul à avoir répondu à notre appel est le FIG 
HAMBOURG (RFA). 


Un groupement d'utilisateurs, c'est aussi la réunion de 
compétences permettant un dialogue plus actif et suivi. La 
barrière linguistique peut être abolie en traduisant les 
articles et programmes dans les langues respectives des 
différents groupements. Par ce moyen, nous pourrons ac- 
croître l'intérêt de notre magazine. L'expression multi- 
associative n'est pas une idée nouvelle, nous l'avons dé jà 
tentée à plusieurs reprises (AUDIOCLUB des PTT, PFC-T, 


SOMMAIRE 


OUF, CIA, etc...), mis l'étendre au niveau européen reste 
une egpeeure, il faut la tenter. 


Dans un tout autre registre, nous constatons la dispari- 
tion de plusieurs revues dites 'verticales' dans le do- 
maine de la micro-informatique et la mutation du contenu 
de certains mensuels. En fait, milgré l'apparition des 
nouveaux langages, BASIC continue à monopoliser les pages 
de ces magazines. Il n'en est pas de même dans les revues 
étrangères. Pour n'en citer que quelques-unes, le langage 
C s'impose de plus en plus dans BYTE et DrDOBB'S, PASCAL 
dans CHIP et DATA WELT ou COMPUTING TODAY. Or, l'informa- 
tion informatique, ce n'est pas seulement le chiffre de 
vente d'un tel ou le déficit d'un autre, ni les listings 
de transformation decimal/hexa ou jeux mièvres et longuets 
à taper, mis surtout les idées nouvelles, les théories et 
les expériences. Le rôle de JIDI est et restera la collec- 
tion et la diffusion de la connaissance informatique fon- 
damentale sous tous ses aspects. Si cet aspect devient 
Européen, il ne peut qu'être profitable pour tout le 
monde. 
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être bientôt la mort du langage ASSEMBLEUR. Ce nouveau 
processeur a des performances à faire pâlir un VAX. 
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un bon complément à la fonction INPUT décrite en page 2. 
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et un complément à la précédente rubrique. 
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les données structurées en PL/I en FIG et 79-Standard. 
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un document OUF pour permettre de réussir sa connexion sur 


les réseaux Européens. 
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TRANSPAC. Tous les codes de contrôle du MINITEL. 
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pour les matheux, la définition d fonctions est presque un 
jeu pour œlui qui veut découvrir des inconnues à l'APL (..à 


la pelle...}). 
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à l'ex- 


et dans les autres cas, de ci- 


Pour tout renseignement, vous pouvez nous 


U 


FONCTION INPUT en 83-Standard 


Dans ce propos, les diverses manières de développer une 
fonction en 83-Standard seront exposées avec pour exemple 
le création du mot INPUT. ; 


I1 existe de nombreuses manières de définir la fonction 
INPUT en langage FORTH, tout dépendant du niveau de 
sécurité souhaité et de la nature du résultat obtenu. La 
première mnière, la plus simple, consiste à reproduire la 
ré-entrance de l'interpréteur externe de FORTH: 


: DINPUT ( — à) 
QUERY 32 WORD NUMBER ; 


De ce mot découle son homologue INPUT délivrant un nombre 
16 bite: 


: INPUT ( —n) 
DINPUT DROP ; 


On pourrait se satisfaire de cette première approche. Mais 
tout progremmur sait qu les utilisateurs ont une 
fâcheuse tendance à confondre les lettres O et les 
chiffres 0, quand ce n'est pas les doigts à coté des 
touches ou carrément l'activation de RETURN avant d'avoir 
entré un nombre. Or, nos deux premières définitions ne 
fonctionnent pas correctement si le nombre tapé n'est pas 
explicitement un nombre. De plus, si on entre un nombre 16 
bits (sans point décimal), c'est un entier qui est déposé 
gur la pile de données. De mm, si on entre um entier 
double précision, se sera un entier 32 bits qui sera 
déposé sur la pile. 


Etant donné qu'il n'est pas question d'exiger de la part 
de l'utilisateur (qui lui n'en a cure de votre programme, 
et il a raison car il n'est qu'utilisateur...) de taper: 
1234567. 
quand il tapera instinctivement: 
1234567 
ce qui bien entendu ne rentre pas dans un format 16 bits. 


On va donc substituer le mot NUMBER? au mot NUMBER dans la 
définition de INPUT. 


: INPUD ( — à fl) 
QUERY 32 WORD 
NUMBER? ; 


L'exécution de INPUT délivre le nombre double précision 
tapé en réponse à INPUT précédé d'un flag booléen. Ce flag 
booléen est vrai si la réponse est un nombre, elle est 
fausse dans les autres cas: : 


empile 55 O 1 
réponse à INPUT: 55.  empile 55 O 
réponse à INPUT: TRUC empile O0 © oO 
réponse à INPUT: <ret> empile 0 O oO 


réponse à INPUT: 55 


Encore une fois, cette solution serait satisfaisante avec 
le petit arrangement suivant: 


: INPUT ( —— 4) 
QUERY 32 WORD NUMBER? DROP ; 


Mais on pourrait se servir utilement de ce petit drapeau 
booléen pour faire réexécuter l'entrée du nombre tant que 
celui-ci n'est pas valide: L 


: INPUT 
BEGIN 
QUERY 32 WORD NUMBER? NOT 
WHILE 
2DROP 
REPEAT ; : 


( à —) 


Là c'est nettement plus sécurisé. Le petit malin qui 
prendra le clavier pour un défouloir à phalanges risque 
fort de rester bloqué avec des entrées numériques du 


style: 
12ER4 TRE 6773JHLGJ676576760H4676765 
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: INPUT ( — 4) 
#OuT À 
BEGIN 
? DUP #OUT ! QUERY 32 WORD NUMBER NOT. 
WAILE 


Maintenant, 


par Marc PETREMANN 


Mais à toute solution peut venir se greffer un problème. 
Si votre écran contient des informations, ce genre de 
manipulation risque de vous obliger à refaire le décor si 
le défoulemnt de l'individu appelé Atilisateur vient 
empieter sur l'affichage dont la signification peut être 
vitale pour la suite des opérations. On prévoiera donc 
d'effacer et de faire revenir à la position de départ le 
curseur, ceci tant que l'information demandée n'est pas un 
nombre: 


2DROP DUP 4OUT@ SHAP - 

DUP BACKSPACES DUP SPACES BACKSPACES 
REPEAT 
ROT DROP ; 


Ca commence à s'étoffer, non? Bien entendu, votre 
utilisateur obstiné à confondre les ‘'Os' et les 'zer0s' ne 
court plus le risque de se répandre en essais sucœæssifs 
au travers de votre ....... (tableur, traitement de texte, 
base de données: <- rayer la mention inutile). Mais par 
contre, rien ne l'empèche, histoire de voir et de vous 
embèter, d'essayer un nombre du genre: 


1234567678901 2445678901 2345678901 3456789091 3345667 


Forth n'appréciera guère (j'ai moi-même planté un serveur 
visiblement pas au point avec ce truc, puis j'ai tapé EXP 
'LIST', ce qui m'a donné le mode d'emploi, un peu à la 
manière de HELP avec dBASE...). 


On peut envisager de limiter le nombre de caractères à 
taper: 


: MINPUT ( u —— à) 
OUT À 
BEGIN 
DUP 4OUT ! 
SPAN(@ TIB ! 
NUMBER? NOT 
WHILE 
2DROP DUP HOUT® SWAP - 
___ DUP PACKSPACES DUP SPACES BACKSPACES 
REPEAT 
ROT DROP ROT DROP ; 


TIB OVER EXPECT 
BIX OFF IN OFF 32 WORD 


Ne vous étonnez pas si le remplacement de QUERY par EXPECT 
nous oblige à rallonger la définition. Ce complément 
provient du contem de la définition de QUERY et est 
listable par SEE QUERY. 


Je vous encourage vivement à procéder à vos propres 
expériences. Bien entendu, n'hésitez pas à vous servir de 
DEBUG pour visualiser la trace de l'exécution de votre 
fonction INPUT. 


notre fonction #INPUT est 
sécurisée. Pour vous en convaincre, essayez: 


inviolable et 


DARK 10 10 AT .( ! 1) 11 10 AT 4 #INPUT CR 

Tout ce que vous taperez entre les deux points 
d'exclamtion et qui ne sera pas constitué de quatres 
chiffres sera obstinément refusé. 


Attention, la fonction AT est vectorisée et n'est peut- 
être pas initialisée correctement sur votre système. 


Les définitions précédemment décrites sont spécifiques au 
FORTH 8%Standard et tournent sur les versions MSDOS et 
CP/M. 
Cet exemple peut certainement être amélioré et adapté: 

- lecture à un format spécifique, du genre INPUT-USIN 
De même, le nombre déposé sur la pile peut devenir un 
nombre 16 bits, flottant ou fractionnaire en fonction du 


contenu d'un pointeur paramétré par une application 
spécifique; pensez à la vectorisation... 


LES RESEAUX TELEMATIQUES ET LES CODES TRANSPAC 


S'il est un domaine difficile à appréhender, c'est bien 
celui de la télématique et des réseaux. Encore très mal 
exploité en France en dehors des applications à caractère 
commercial, il est pourtant promis à un avenir certain 
grâce à la chute vertigineuse des coûts des différents 
matériels et le croissance très rapide de la capacité des 
systèmes. 


La télématique dont il sera question ici n'a rien à voir 
avec les messageries roses fleurissant sur T3 (3615). 
Notre télématique est celle de l'Europe. Elle permet 
l'accès à des documents et des ressources rares, un 
dialogue privilégié avec des concepteurs. En France, les 
précurseurs se nomment OUF et CALVADOS, sans oublier 
TRANSPAC. Mais pour celui qui mitrise plus d'une langue 
(l'anglais surtout!!), les contacts hors de nos frontières 
lui ouvrent des perspectives infinies. 


Bien entendu, le crédit de votre compte bancaire doit être 
à la mesure de votre curiosité, sinon gare à la facture 
téléphonique. Mais l'avouerai-je, j'ai trouvé plus de 
renseignements en une heure de connexion sur ForthTREE 
(voir dans ce même numéro l'article consacré au FIG 
HAMBOURG) que je n'ai récolté de trucs et d'astuces 
vraiment utiles sur T3 en un an. 


Notre seul souhait: 
services télématiques thématiques et ouverts. 
le mæilleur exemple en France. 


permettre le développement des 
OUF en est 


En attendant ces nouveaux réseaux, voici les numéros 


d'appel de quelques réseaux accessibles en Europe, 
accompagnés des spécifications techniques d'accès: 
19 44 224 641 585 ARERDEEN UK  V23 PRESTEL 
19 44 3 420 13 ABBS WORTH UK  V21 N8!: 
19 44 225 232 76 BABBS UK V21 N81 
19 44 594 276 306  BABFS 1 UK V21 N8'1 
19 44 269 778 %56  BABES 2 UK V2 N81 
19 44 742 667 983  BASUG UK  V21 N&t!1 
19 44 707 328 723 BRS CHILXT UK  V21 N81 
19 44 506 785 26 BBS LIVING UK  V2t N81 
19 44 245 511 077 BBS SOUTHE IX  V21 N81 
19 44 M8 M3 BETTISFIEL UK V21 N8îi 
19 49 104 930 1511 BILDSCHIRM RFA V23 PRESTEL 
19 44 268 251 22 BIT UK V21 N81 
19 44 &7 288 810 BIRMIN.N UK  V21 N81 
19 44 258 544 Y BLANDFORD UK  V21 N81 
19 44 295 ‘720 812  HLOXAM UK V21 N81 
19 44 462 677 177 BULLETIN UK  V23 PRESTEL 
19 1 617 861 9774 BYTE USA BELL 103 N81 
19 44 699 321 4 CBBS CUMER UK  V21 N81 
19 44 139 g1 CBBS LONDO UK  V21 N81 
19 44 207 545 555  CRES-NE. UK  V21 N81 
19 44 7392 531 16 CBBS-SW UK V21 N8t: 
19 4 387 531 16 CBBS-SW UK V23 SCROLLING 
19 44 486 225 174 CBEBS Surey WK  V21 N8t: 
19 44 707 528 3 CHILTERN UK V2t N8': 
19 44 160 641 Y CITY BB UK  V21 N8': 
19 44 524 603 9 CNOL UK V2i N81 
19 44 163 130 76 COMPUTER À UK V21 N81 
19 44 874 711 147  COMUN HIPE UK  V21 N81 
19 44 702 546 373  C-VIEW UK V23 PRESTEL 
19 44 167 918 & DISTEL UK V21 E71 
19 44 167 %61 & DISTEL UK AUTO RAUD RATE 
19 44 279 443 511 ESTELLE UK Vv21 E81 
19 44 279 441 188  ESTELLE UK V23 PRESTEL 
19 44 279 441 222  ESTELLE UK V22 N81 
19 44 48 859 161 FORUM 80 H UK  V21 N81 
19 44 96 398 71 FORUM 80 S UK  V21 N81 
19 44 190 225 46 FORUM 80 W UK  V21 N81 
19 44 482 497 150 HAMNET UK vai N8'1 
19 44 506 385 26 LIVINGSTON UK V21 N81 
19 44 186 301 98 LONDON UG UK  V21 N8!:1 
19 44 54 635 336  MAILBOX-4 UK  V21 N81 
WARLEY 
19 44 514 288 94  MAILBOX-4 UK  V21 N8'!1 
LIVERPOOL 
19 44 614 275 711 MANCHESTER K  V21 N81 
19 44 614 271 596 MANCHES. D UK V2t N81 
16 29 892 353 MANEL HS FRA V21 E71 
19 44 702 552 941  MAPTEL UK V21 N81 
19 44 164 026 17 MBBS UK V21 N8ï 
19 44 157 %2 & MICRO LIVE UK  V21 N81 
19 44 614 564 157  MICROKEB UK  V21 N81 
087 883 4%4  MICRO-NET B v21 N81 
041 796 666 N81 
010 228 099 N8': 


origine O.U.F, 


19 44 617 368 449 UK vai 
19 44 692 630 610  NBS UK V21 
19 44 692 630 186 NBES C UK V21 


19 44 7% 842 324 
19 44 &7 288 810 
19 44 614 271 59% 
19 49 6154 51 433 
16 90 77 61 % 
19 44 742 667 983 
19 44 227 2356 28 
19 44 243 511 O77 
19 44 126 890 14 
19 44 782 265 078 
19 44 782 265 078 


NKABRS KEN UK  V21 
NOTHINGHAM UK  V21 
OBES UK V21 
OBER-RAMST RFA V21 
PICONET FRA V21 
PIP UK V21 
RENTEL UK  V21 
SOUTHERN B UK V21 
SOUTHWEST UK  V21 
SITE UK V2 
STOKE ITEC UK  V2i 


19 44 134 89% 19 TBBS LONDO UK  V21 
19 44 134 178 40 TBBS METRO UK Ve2i 
19 44 602 289 783 TBES NOTHI UK V21 
19 44 258 544 Y TBBS HLAND UK V21 
19 44 703 477 219 TBES SOUTH UK V2! 

041 529 950 UIG B V2t 
19 44 903 420 13 WABBS UK V2i 


19 44 784 635 336 


Et pour nos adhérents habitant la région Est, ils pourront 
avantageusement se connecter sur les réseaux fonctionnant 


W MIDLANDS UK V21 


B'AUZLAZLAZL2Z2EZ2Z2Z222722 
DHHLHHMHHMHHHMHMHMOMEÈE 


en Suisse: 

19-4139 41259 Micronet Lausanne F 24h 
19-411 7803290 Excom Waedenswil D 24h 
19-4153 45458 PIM Schaffouse D 24h 
19-4137 231689 Norasia Fribourg  D/F/E 24h 
19-4131 588939 Paddle Box Bern D 24h 
19-4131 360143 Vogelfutter Bern D 24h 
19-4162 519751 DIS Zofingen D 24 
19-4131 962106 Interdiscount D 24 
19-4157 461858 Dataf4 Argovie D 22-09h 
19-4161 88347 BMS Bale D 22-..h 
19-411 3122267 ZEV Zurich D 19-09h +DI 
19-4161 736639 CCC CH Bale D ? 
19-4161 509355 ICM Bale D 22-,..h 
19-4171 41188 Paus-Box Rorschach D 19-07h 


Et pour la France? Les initiatives durables sont encore 
très ponctuelles. Cependant, nous disposons d'un atout non 
négligeable, le réseau TRANSPAC. Bien entendu, vous 
connaissez les fameux 3615, 3614 et 3615 (T1, T2 et T3). 
Mais saviez-vous que vous pouvez également vous connecter 
en 700 bauds et 1200 bauds full duplex. Ces deux points 
d'accès sont essentiellement réservés aux utilisateurs 
professionnels. C'est sur ces deux réseaux que l'on peut 
avoir accès à CALVADOS. ACCES : 


300/300 Bauds 
1200/1200 Bauds 


Tel. 36 01 91 OO 
Tel. 36 00 91 22 


Norme V2i-mode Appel 
Norme V22B-mode 2 


TRANSPAC-UTILISATION DU PAD 


Résumé des principales caractéristiques d'utilisation 
du réseau TRANSPAC à travers un PAD, extraites des 
Spécifications Techniques d'Utilisation du Réseau 
(S.T.U.R. du 05.07.84) par Arnaud DELMAS. 


ETABLISSEMENT DE LA COMMUNICATION : 


- Connexion du modem. 

- Message "TRANSPAC'. 

- Faire le numéro (9 chiffres) du serveur, puis CR. 
- Message "COM" si la liaison est établie. 


NOTA : 


1/ Avant de faire le numéro du serveur on peut envoyer 
des commandes au PAD sans préfixe. 


2/ Si la liaison ne peut être établie, le PAD transmet un 
message d'erreur. 


3/ Le PAD attend un mméro où une commande pendant 60 
sec ou 4 tentatives avant de déconnecter la ligne. 


TRANSFERT DE DONNEES : 


mots de 8 bits, pas de parité, 1 bit de stop 
DLE (P) 
XOFF-DC3 (*S), XON-DCI 


- Format : 
- Caractère de contrôle du PAD: 
ie de débit par le PAD: 
*Q 
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- Contrôle de débit par l'utilisateur: 
- Transmission de DLE: DLE, DLE 

- Taille mex d'un paquet : 128 octe stand (32, 64, 256) 
- Envoi d'un paquet: par caractère d'envoi ou délai max 


XOFF-DLE, XON-CR 


NOTA : 

Certaines caractéristiques peuvent etre modifiées, 
en changeant les paramètres du PAD. En particulier, il 
est possible de rendre le PAD transparent au caractère 
DLE, et de supprimer le contrôle du débit par le PAD. 


COMMANDES DU PAD : 
Format: <préfixe» commande>[-< commande>... ]CR 


Prefixe: DLE normalement, BREAK dans certain cas (le 
préfixe n'est utilisé que si la commnication est établie) 


- LIB Fin de conmnmication 
- RESET Envoi d'un pagwt d'initialisation 
- INT Envoi d'un paquet d'interruption 
- STAT Etat de la commnication 
( 'ENGAGED ) 
— PAR? Etat des paramètres du PAD 
- PAR? <paramètre>[,...] Etat d'un ou plusieurs 


paramètres du PAD 

- SET <paramètre>:<valeur>[,...] Modification d'un ou 
plusieurs paramètres du PAD 

_ SET? <paramtre>:=valeur>[,...] Modification 
relecture d'un oœ plusieurs paramètres du PAD 

- PROF <profil> Sélection d'un profil 


puis 


PARAMETRES DU PAD : 


1: Transparence à DLE 1-= DLE utilisé par le PAD 
O= PAD transparent pour DLE 

2: Echo par le PAD 1= Echo des caractères reçus par 

le PAD 

Pas d'écho 


[e) 
il 


3: Caractère d'envoi de données 
126= Car. de contrôles + DEL 
O= Pas de car. d'envoi 
2= CR uniquement 


4: Délai max d'envoi de données 
O= Pas de delai max 
1 à 255= Délai en 1/20e de Sec 


5: Contrôle de débit par le PAD 
1= Xon-Xoff 
O= Pas de contrôle 


6: Messages du PAD vers l'utilisateur 
: = Oui 
= Messages non transmis 


7: Effet d'un BREAK 2= Envoi d'un paquet de 
réinitialisation 

= Envoi d'un paquet de données 

= Envoi d'un paquet d'interruption 

8= Préfixe de commande i 

(identique a DLE) 

21= Envoi d'une procédure de BREAK 


8: Arrêt de transmission des données 
O= Transmission 
1= Arrêt (données perdues) 


O= Non utilisés 
4 a 255= Nb de nulls après CR 


9: Caractères nuls 


O= Non utilisé 


10: Pliage de ligne 
| 1 à 255= Longueur mx de ligne 


11: Vitesse de transmission (non modifiable) 


La première valeur de chaque paramètre est la valeur par 
défaut. 


PROFTLIS : 
O: Profil simple (valeurs par défaut) selon Avis X28 
4 à 15: Profils prédéfinis 


1: 0,0,0,20,0,0,2,0,0,0 profil transparent selon 


Avis X28 
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serveur monovoie par retournement du modem est facile à 


3: 1,0,2,80,0,1,21, utilisable avec KEIMIT 
4: 1,0,2,40,0,1,21, idem F 
6: 1,1,126,0,1,1,21,0,0,0 idem O, mis traitement 


BREAK spécial 


MESSAGES DU PAD: 


— COM Commnication établie 
- LIB CONF Comminication interrompue par 
l'utilisateur 
- LIB XX Commnication interrompue pour la 
raison XXX 
OCC Occupé : 
INV Demande de facilité invalide 
NC Incident réseau 
DER Dérangement 
NA Non autorisé 
NP Inconnu 
RPE Erreur de procédure distante 
ERR Erreur de procédure locale 
PCV Refus de taxation au demandé 
PAD Par le PAD 
DTE nnn Par le serveur pour raison nnn 
- RESET XXX Réinitialisation pour la raison XXX 
— ERROR Erreur de syntaxe de commande du PAD 


TRANSMISSION DE FICHIERS: 


La transmission par KERMIT est la milleure méthode car 
elle n'interfère avec le caractère DLE ni les 
caractères de contrôle utilisés par le serveur. Pour la 
configuration de KERMIT il faut tenir compte des points 
suivant: 


- Caractère de fin de paquet: CR 

- Protocole Xon-Xoff inutile 

- Pas de problème de longueur de paquets 

- Transmission de fichiers binaires sans encodage du 
8ème bit 


Les paramètres du PAD seront programmés ainsi: 


1:1 DLE non utilisé par KERMIT 

2:0 Suppression d'écho 

3:2 Envoi des données sur car. de fin de bloc 

4:10 Temporisation 500 ms pour caractères hors paquet 
5:0 Pas de contrôle de débit par le PAD 

Sans importance 

Sans importance (dépend du Serveur) 


. 
0 
° 
nu 
, 
. 


Pas de nulls, en principe 
Pas de pliage de lime 


6:1 
7:2 
8:0 
9:0 
10:0 
La transmission par XMODIM est en principe possible 


mais délicate, car élle nécessite la mise en transparence 
totale: 


1:0 Pas de filtrage de DLE 

2:0 Suppression d'écho 

3:0 Pas de caractères d'envoi 

4:10 Temporisation d'envoi 500 ms 

5:0 Pas de contrôle de débit par le PAD 
6:1 Sans importance 

7:8 BREAK remplace le caractère DLE 
8:0 

9:0 Pas de nulls après CR 

0:0 Pas de pliage de ligne 


1 


COMMANDES SPECIFIQUES À LA NORME VIDEOTEX 


Si vous disposez d'un Minitel, son utilisation en tant que 


mettre en oeuvre. De même, pour les nouveaux matériels 
type TELESTRAT, THOMSON TO et IBM avec carte CORTEX 
(V21,V23), l'émulation de toutes les fonctions décodables 
par un Minitel sont contrôlées par programme. Pour ceux 
dont les projets télématiques sont ambitieux, voici la 
liste complète des fonctions TELETEL: 


(1B 39 67 Déconnexion 


EX 9 g 
(1B 3 68) Connexion 


EC 9h 


EX (1B 3B 60) Blocage module 


(1B 3B 61) Aiguillage module 
(1B 34 64) Diffusion restreinte 


+ <rept> <emtt> 
a <rept> <emtt> 


EX 
ES : d <ropt> 


ESC : 


ESC : 
ESC ; 


EX : 
ES : 


ESC 9 
EX 9 


EX 9 
ESC : 


ES 9 


ESC 9 


EX 9 


( 
: u<code> { 
: k<code> ( 

(el 


: w <code> 


: f <nbd 


e <rcpt> 


b <modw 
c <modu> <code> 


avec <modu> <rcpt> 
Ecran X (58) 
Clavier Y (59) 
Modem Z (5A) 
Prise { (5B) 
Téléph. ç (5C) 
Logic. $ (5D) 
avec <code> 
bit O 
bit 1 
bit 2 
bit 3 
bit 4 
bit 5 
bit 6 


i <code> (1B 3A 69) 
j <code> (1B 34 64) 
avec <code>= 


(1B 3A 65) Diffusion systématique 


(1B 3A 62) Demande status module 
(1B 3B 62) Réponse status module 


<emtt> 
P (50) 
Q (51) 
R (52) 
8 (53) 
T (54) 
U (55) 


écran 

clavier 

modem 

prise 

module téléphonique 
logiciel spécifique 
toujours 1 


Start mode fonctionnement 
Stop mode fonctionnement 


B (42) 80 colonnes (seulement 


avec nouveau modèle type MATRA) 


C 
D 
E 
F 
& 
1 (1B 39 6) 
m (1B 39 6) 
p (1B 39 7) 


q <code> (1B 3A 71) 
avec <code>= bit O 
bit 1 
bit 2 
bit 3 
bit 4 
bit 5 


r (1B 39 72) 
s <code> (1B 3A 73) 


bit O 
bit 1 
bit 2 
bit 3 
bit 4 
bit 5 


avec <code>= 


avec <coi 


v (1B 79 76) 

(1B 3A 77) 

. avec <code>= bit O 
bit 1 


(1B 34 66) 


rouleau 
procédure corr. erreur 


- mode enseignement 


loupe haut 
loupe bas 


Demande retournement modem 
(E:1200 R:75) 
Demande retournement modem 
(E:75 R:1200) 


Demande status terminal 
Réponse status terminal 


1 (E:75 R:1200) 
module téléphonique 
connecté 
péripherique 

module logiciel 


Demande status 
fonctionnement 
Réponse status 
fonctionnement 

1 si 80 colonnes 

1 si rouleau 

1 si correction erreur 
1 si mode enseignement 
loupe haute 

loupe basse 


Demande status vitesse 
Réponse status vitesse 
Programmtion vitesse 
1 si réception 75 

1 si réception 300 

1 si réception 1200 

1 si émission 75 

1 si émission 30 

1 si émission 1200 
toujours à 1 


Demande status protocole 
Réponse status protocole 


> > > 


> > 


> > > > > 
CA UA UA UA LA LA WA CA CA TA ta 


> 


E<GAHU0TO HR 


ENVOI 
REPET. 
GUIDE 
ANNUL.. 
SOMM. 
CORRIC . 
SUITE 
ESPACE 
LOUPE 


CON-FIN 
lettres spéciales 3 codes “V signe lettre (16 SS LL) 


adressage curseur 
4 


nn 


7 ligne m coli pour met n entre O et 1 (30) et (39) 


ES 


_ic 


ligne 1-40 col c40 1 et c en binaire à partir de A 


Ex: pour ligne 6 col 1 faire 


pour sortir de ligne status <LF> ou positionnement 


Attributs: <ESC> code 


les acquittements -> modem @ (40) 


les acquittements — prise 


mode transparence 


les <nb> octets suivants ne sont pes interprétés 
le protocole acquitte avec *S W (13 57) 


REPONSES à changement 


> > > 


> 


> > 


> 


à 2 uù 1 ù ù À u1 à 
He 4 © Qt > 


> 


touche ENVOI 
touche RETOUR 


touche GUIDE 


touche SUITE 


PR RS 
ms — 
UN UN LU LN LN LN Li Li 
DNA Èt 


touche REPETITION 
} touche ANNULATION 
} touche SOMMAIRE 
touche CORRECTION 
) 


touche CONNECT/FIN 


demande de procédure correc. erreur 
demande d'arrèt de cette procédure 
} demande retournement (E:1200 R:75) 
) demande retournement (E:75 R:1200) 


êège 


) vitesse modem 

) module téléphonique 

) porteuse (connection) 

4) périphérique 

5) modules logiciels 

6) mode de fonctionnement demandé par ligne 
) acquittement mise en transparence 


VI UT Yi VA UN VI V1 
Qù D 


| 


Honmuax 
wa 
BR 
ND 


local 
vers modem 


*S I (13 49) 


ou “V signe 
livre 
dollar 
dièze 
flèche 
flèche haut 

flèche droite 
flèche bas 


æuche 


circonflèxe 
tréma 
cédille 

OE liés 

oe liés 


passe en semi graphique entre (20) et (7E) 
retour en normal 

(tF)mn 

(1F)1 c 


"06 (1F 30 %) 
“FA (1F 4641) 


retour début ligne 1 (home) 
efface écran et retour ligne même colonne 
efface fin de ligne avec le fond défini 


Caractère Fond 
P (50) noir 
À (41) Q (51) rouge 
B (42) R (52) vert 
C (43) S (53) jaune 
D (44) T (54) bleu 
E (45) U (55) magenta 
F (46) V (56) cyan 
G (47) W (57) blanc 
H (48) clignote 
1 (49) fixe 
J (4A) fin incrust. 
K (4B) début incrust. (en transmission radio: ANTIOPE) 
L (4C) taille norm. 
O (4F) taille double 
M (4D) hauteur double 
N (4E) largeur double 
X a made 
émasquage : 

Y (89) fin res suite en page 6 
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APL 


Nous avons vu précédemment comment calculer en APL les 
racines d'une équation du 2ème degré par une suite 
d'opérations simples dont voici le rappel: 


1) Saisie de données: 


Qu» 
tt 
OCGOQ 


2) Calcul du déterminant: 
A + (B *x 2) - (4 x À x C)- 
Là, deux variantes possible: 
a) si a >0 
on calcule: 
De A x 0.5 


3) Calcul des racines réelles: 


x 


1ère racine: 


RI e ((-B) + D) + (2 * 4) 
2ème racine: 


R2 æ ((-B) - D) + C2 »* A) 


b) si A < 0 


on calcule: 
D « (-A) x 0.5 
4) Calcul des racines complexes: 


partie réelle: R «+ (-B) + (2 x 4) 
partie immginaire: 1 + D + (2 x 4) 


Nous pouvons grouper une séquence d'opérations en une 
entité appelée "fonction". Il suffit ensuite d'appeler la 
ee par son nom pour que toute la séquence se 
déroule. 


Nous pourrons définir une première fonction que nous 
appelerons SAISIE permettant de fixer les valeurs des 
paramètres A, Bet C. Sans préciser ici les détails de la 
syntaxe du langage, nous dirons seulement que cette 
fonction put e'écrire: 


COJ SAISIE 
[1] Que À 
[21  À+ÿ 
{3 ‘B=" 
[4] Bei 
[SO ‘C=" 
[ob] C+O 
Ensuite, nous pouvons écrire ne fonction DETFRMLNANT 


calculant la valeur du déterminant 
paramètre D, égale à la racine carrée de la valeur absolue 


de À. 


Cette fonction pourra même faire appel à la première pour 
la saisie des données. Nous écrirons: 


CO] DETERMINANT 

C1] SAISIE 

[2] Ae(Bx2)-(uxA4xC) 
[3} De+ClA)x0.5 


Ensuite, selon le signe de A nous appelerons soit la 
fonction REÉELLES qui calculera et affichera les racines 
réelles: 

C0] REELLES 

C1] RA ee: ? 

[2)] ((-B)+D)+(2xA) 

C3) ‘"R2 = 

C4] 


CC-B)-D)+(2*x4) 


Soit la fonction COMPLEXES qui calculera et affichera la 
partie réelle, puis la valeur absolue de la partie 
imginaire des deux racines conjuguées. 
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LA NOTION DE FONCTIONS 


Ainsi que celle du|. 


par F.ESPINASSE 


[0] COMPLEXES 


C1] 'R = 
[2] (-B)+(2*x4) 
C3] ‘1 = 


On pourra "ficeler" le tout par une fonction appelée 
EQUA2, laquelle fera appel successivement à la fonction 
DETERMINANT laquelle fait elle-même appel à SAISIE pour 
avoir les valeurs des paramètres, puis, selon le cas, à la 
fonction REELLES ou à la fonction COMPLEXES. 


CO] EQUA2 

C1] DETERMINANT 

[21 +C(4>0),(A<ODD/RE,CX 
[3] RE:REELLES 


C4] FIN 
C5] CX:COMPLEXES 
[6] FIN: 


Nous disposons mintenant pour calculer les racines d'une 
équation du 2ème degré d'un "progiciel" comprenant cinq 
fonctions, et structuré de la mnière suivante: 


Ca n'est sans doute pas la manière la plus simple et la 
plus économique de calculer les racines d'une équation du 
2ème degré, mis ce petit exemple permet de comprendre (du 
moins nous l'espérons) le mécanism des fonctions du 
langage APL. 


F.ESPINASSE 


suite de la page 5 


7 (54) début soulignement 


(5C) fond normal 
Î (5D) fond inverse 
(5E) fond transpar. 


répétition “Rn (12)n répète n-40 fois le car' précédent 
Ex À “R “J (41 12 4A) répète 10 À derrière le À (total 11) 


<del> (7F) écrit un caractère pavé couleur caractère 


demande position 
<esc> a (1B 61) répond avec code adressage 
*E (05) demande identification 


:Q (11) 
“ (14) 


<esc> £ <sp> attribut 


curseur visible 
curseur invisible 


(1B 23 20 at) 

attribut sur tout l'écran 
(1B 23 21 at) 

attribut sur toute la ligne 
(13 23 20 5F) 

révèle parties msquées 


<esc> £ ! attribut 


<esc> £ <sp _ 


code ml définis a 0 

<esce> action param (1B 3x 4p) commande d'un periph. 

35 mise en route 

36 arrêt 

37 attente 

40 recopie papier 

41 enregistrement 

42 roll up æutorisé 

4 roll down autorisé 
et qqch guide 


essayer n guide pour taxes 


PASCAL COMPRESSEUR DE FICHIERS EN CODAGE DE HUFFMAN par Lindo ZHANG 


PROGRAM CHPRSS ; 

{ Compression de fichiers } 
CXSR-YX 

CXEATE 


CONST 
N9=257 ; 
NMO=256; 
LRECORD=18; C% LONGEUR D'UN ENREGISTREMENT "OBJTYPE" #) 
MAXF=1E30; -  C% BORNE SUP. DES FREQUENCES *) 

TYPE 
CODE=STRINGC 401; 
POINTER="NODETYPE ; 


ORJTYPE=RECORD 


FREQUENCE : REAL; C* FREQUENCE *3 

ASCII 1 INTEGER; C%X CODE ASCII =256 mm) EOF*) 

NODE t POINTER, C% POINTE SUR LE NOEU DANS L'ARBRE S'IL *) 
END; C*X EST UN SOUS-ARBRE ET =NIL S’IL EST  #) 

C# UN CARACTERE Le 
NODETYPE=RECORD 

LEFTCHILD : POINTER, C% POINTE LES 2 NOEUX GAUCHES *) 

LEFTCHAR 1 INTEGER; C%X CARACTERE GAUCHE X2 

RIGHTCHILD : POINTER: 

RIGHTCHAR 1 INTEGER; : 
END; 


OBJITYPE1=ARRAY CO..N02I OF OBJTYPE,; C*k 258 objets *) 
LABEL PROMPT ; 


VRR 
CRC, CRCO : INTEGER)y CX Chekesum *) 
OBJET : OBJTYPE1 ; CX Table de frequences *) 
OBJETI : OBJTYPEL; CX SauveSarde de la table *X) 
CODAGE : ARRAYCO. .NMG,9,,92 OF BYTE ABSOLUTE OBJET; 
PROOT 1 PNODETYPEs C% RACINE DE L’ARBRE *) 
I,N : INTEGER; 
C : CODE: C4 Sert à l'imPression des codes *) 
LINECOUNT : BYTE; CX ComPteur des lignes imPrimees *X) 
PRTFLAG : BOOLEAN; 
LENS, LEN : REAL; C4 LonSeur du fich, orginal et celle #) 
, C4 du fich. comPresse *) 
HOMO, HOM1 : STRINGC16]; C* Noms de fichiers #4) 
CMDLIN 1 STRINGC211; 
FICHQ,FICHI : FILE: 
EUFFIN : ARRAY C9.,1301 OF EYTE: 
PTFICHA : BYTE: 
PTFICHI : INTEGER; 
TAILTAMPON  : INTEGER; CX LONGUEUR TAMPON EH NBR DE EYTES #2 
TAMPOH : ABYTE; 
LENTAMPON : INTEGER; GX LONGUEUR TAMPON EN HBR D'ENREGISTREMENT #) 
STRCK. : BYTE; C4 <3 lorsqdu’on Pousse des bytes dans le buffet *X2 
TABLE : INTEGER: (# POSITION DE LA TABLE DANS LE FICH. EN SORTIE *) 
TEMF : REAL; 
SAYEBITS : BYTE: 
PTBITS : BYTE; 
CH : BYTE: 
CRARACT : CHAF: 
UNTILFLAG : EBOULEANH; 
Len en me em D D 2 ed nn nn en nee ee ; 
ne NE OPEHIN: {© OUVERTURE OÙ FICHIER EN ENTREE } 
E W 
RSS ICHC FICHG. HOMO à: 
t$I-! 
RESETSFICHG 1: 
2$I+: 
PTFICHG:=131: 
STACEK : 23; 
CRC := 
EHC:: 


FUHCT IOH POPCHARC VAE CH: BYTE): BOOLERH; 

{Lit un car. dePuis le buffet 

Fetourne FALSE si l’on est à la fin du fichier + 

LABEL FIN: 

AR 1 :PYTE; 7 
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BEGIN 
1F PTFICHY2136 THEN 
BEGIN 
IF EOFCFICHB> THEH BEGIN POPCHAR:=FALSE; GOTO FIN END) 
BLOCKREAD( FICHO, BUFFIHCZ1. 1 >; 
FOR J:=#2 TO 198 DO CRC:=CRC+BUFFINCIJ; 
PTFICHO:=3 
END; 
POPCHAR : =TRUE ; 
CH: =EUFF INCPTF ICHS1; 
PTFICHO:=PTFICHB+1 ; 
FIN:END; 


00 on om os mt con mi 00 000 0 um 0 0 2 20 00 000 20 GP + 2 0 0 NE 0 D ON MS DE A ON A PO M PP 


PROCEDURE PUSHCHARCCH : BYTE); 
{ Rebousser un octet dans le buffet à 
BEGIN 
PTF CH: =PTF ICHD-1 : 
BUFF INCPTFICH91: =CH 
, END; 


Luna mo na 2 A D AT 


FONCT1ON GETCHARCYAR CH: EYTE2: BOOLEAN; 
{ Ce Programme remPlace une seîuence de butes identiques Par 
#90 suivi du nombre de repetitions Cmaxi, 2552 } 
VAR CH1 : BYTE: 
COUNT : EYTE: 
NOFIH : EOOLERN; 
BEGIN 
NOF IH : =POPCHARS CH): 
GETCHAR: SHOP IH: 
IF HOFIH THEN 4 Pas la fin du fichier ? 
IF STACK<=2 THEN STACK : =SICC STACKO ELSE 
IF CH=#99 THEH 
BEGIH 
IF POFCHARCCHI: THEH 
BEGIN 
IF CHIS>oCH THEN 
BEGIH 
PUSHCHARC CH1 2; 
PUSHCHARS 9); 
STACK :=2 
EHD ELSE 
BEGIH . 
COUHT :=1; 
NOF IN: =TRUE ; 
WHILE CCHi=CH} AND <COUHT<2552 AND NOFIH DO 
BEGIN 
COUT : =SUCCÉ COUMNT 3; 
MNOF IN: =POPCHARÇCCHI 2 
EHD; 
IF NOFIH THEH PUSHCHARC CHI: 
STACK : =G: 
PUSHCHARCCOUNT ): 
PUSHCHARC #99 ); 
PUEHCHARC 9 à 
END 
EHC ELSE 
BEGIH 
PUSHCHARC 9 3: 
STACK:=2 
EWD 
EHC ELSE 
1F POPCHARC CHI) THEH 
IF CH1<>CH THEH PUSHCHARE CHI ELSE 
IF FOFCHARCCH1 2 THEH 
IF CH1<>CH THEH 
BEGIN 
PUSHCHAR£ CHI 2: 
PUSHCHAFS CH 5: 
ESTACK:=2 
EHS ELSE 
--EEGIH 
COUHT : =2; 
MNOFIH:2=TRUE: 
UHILE <CCHi=CH)> AMD CCOUNT<255 >; AHD HOFIN DO 
BEGIN 
COUHT : =SUCC< COUNT 3: 
HOF IH : =POPCHARC CHI 2 
END ; 
IF HOFIH THEN FUSHCHARCCH1 ?; 
STACK :=1 ; : 
PUSHCHARS COUNT 3; 
PUSHCHARS #90 à 
EHD ; 
CH:=CH AOR —1 
EHC ; 
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PROCEDURE CETFREQ VAR HW: INTEGER ); 

4 Generation de 1a table de frequences } 
{ Retourne dnas N Le nbr. d'objets } 
VRP 


l:J : INTEGER:; 

ENCORE : POOLERN; 

CH : EBYTE; 
BEGIN 


FOR 1:=9 TO NM DO 
HITH OBJETCII OO 
BEGIH 
FRÉQUENCE : =9; 
AECII':=l: 
HODE :=HIL 
EHC: 
ENCORE : =GETCHAP CH: 
MHHILE EMCORE CC | 
BEGIN 
DBJETLCHI. FREQUENCE : =EJETECHI. FRÉQUEHCE+1 : 
ENCORE : =GETCHAR£ CH) 
END ; 
OBJETCHMG]. FREQUENCE : =1 ; 
OBJETCNAT. FREQUENCE : =MAXF ; 
MOVE COBJET,OBJETI,HO#LRECORD : { CAUVER LA TABLE DE FREQUEMCES ?} 
4SkiP les zero } 
1:=9; 
MHILE COBJETCIT. FREGUENCE< 26; DO I':2SUCC{ 155 
IF I>=NMG THEN N:=HG ELSE 
BEGIH 
J'=l: 
MHILE CI<=NMD: DO 
BEGIH 
I:=SUCCCT à: 
IF OBJETCIJ.FREGUENCE< 8 THEH 
EEGIMH 
OBJETEC.JI: =0EJETC11; 
J'ESUCCE JS 
EHD 
EMC:: 
H:=PREDIE Jo 
EHD 
EC; 


LEA; 
PROCECURE TREECYAR ROOT :HODETYPE; H: INTEGER »; 
4 Generation de l'arbre binaire du codage } 
LABEL CONT: 
A F 

Fa ! POINTER: 

I: J:K : INTECER: 

F : FREAL: 
FEGIH 


IF H€S£ THEH HITH ROOT CO 

BECIH 
LEFTCHILC : =CBJETC9T, NODE ; 
LEFTCHAF: : <OBJETCA3, ASCI 1]; 
FRIGHTCHILD : =0BJETC11. HODE : 
RIGHTCHAF : =OBJETC11. AECI I: 

EHC ELSE 

ÉECIN 
HEHCPG à: 
PS", LEFTCHILD : =0BJETCG1. NOLE : 
PB". RICHTCHILD : <9BJETC1, HOLE : 
PA, LEFTCHAR : =0BJETCAT. ASCII : 
PAT. RICHTCHAR : <0ÉJETC13, ASCII: 
F: =0BJETCG1. FREGUEMCE+OBJETC1J. FRÉQUENCE : 
l'#2; 
Ki =h; 
HHILE €JSPREGCK 5 DO 
BECIH 

l'=CJ+K3 SHR 1; 

En F?OBJETEIT.FREGUENCE THEN J:=<] ELSE K:=1: 

l'=K; 

CONT: IF I22 THEN MOVE OBJETC21. GBJETCO], ( 1-2 )#LPRECORD ); 
IF I£N THEH MOVE OEJETCII, OBJETCI-11.€H- I YELPRECOPD *: 
WITH OBJETCI-21 D 

BEGIN 
FRESUENCE : =F ; 
HODE : =PG 
END : 
OBJETCH-13, FRÉQUENCE : =MAYF : 
TREEC ROOT ..H=1 à 
EHC 


EH: : 
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PROCECURE OPENOUT : 
BEGIH 
ASSIGNCFICHI. NOM 2: 
RENRITESFICHI 5: 
PTFICH1:=1; 
TAILTAMPOH : =MEMAYAIL : 
‘ RES TR ST ONRENEMRES AND €TRILTAMPOH>=0  THEH 
EEGIN 
MRITELHC A" D'Memoire insuffisante’ ); 
HALT 
END ; 
TRILTAMPON:=1152: 
LENTANMPOH:=TAILTAMPON DIV 128: 
GETMEN TAMPON, TAILTAMPON à; 
EHC'; s 


PROCEDURE FUTCHARC VAR TAMPON: CH: BYTE:; 


VAR 
EUFFOUT : ARRAY C1..12 OF BYTE ABSOLUTE TAMPON; 
BEGIN 
IF PTFICHI>TRILTAMPON THEN 
BEGIN 


BLOCKHPRITECFICH1, BUFFOUT ; LEMTAMPON à: 
PTFICHI:=1 
END; 
BUFFOUTEPTFICH11:=CH: 
PTFICH1:=SUCCEPTFICHI) 
END: 


PROCEDURE PUTBITESVAR CHAIMEI:MBRSITS: BYTE: 
VAR 


CHAIHE : APBAY C1..12 OF EYTE ABSOLUTE CHAIHEÏ: 
1.J.KH : EYTE: 
BECIH 
Ji=1i; Kiel: 
FOS l:={ T0 HERBITS DO 
BECIH 
IF CCHAINELJI AD KA THEN SRYVERITS:=GAVEBITS OF PTBITS: 
IF PTEITE=128 THEH 
BEGIH 
PLITCHARS TAMPON". SAVERITE 2; 
SAVERITS : =: 
FTEITS 
END EL£S 
IF K= 
BEGIH 
K:=l: 
J:=3UCC( Ja 
END ELSE K:=k SHL 1 
END 
END: 
ma TT } 


PEOCECURE CLOSEOUT( VAR TAMPON 3: 


VAR REST : EYTE: 
; TEL : ARERY C1,.19 OF EYTE ABSOLUTE TAMPOH: 
EG 


IF PTÉITS451 THEH PUTCHARS BUFFOUT ; SAVERTTS à; 
FTFICHI : =PREDE PTFICHI 3 
REST:=PTFICHI MOD 128; 
re THEN BLOCKHRITECFICH1.BUFFOUT.PTFICHI DOI 128% ELSE 
EGIH 
FILLCHARCBUFFOLTEPTFICH14+11: 128-REST. #14: 
BLOCKUPRITES FICH1.BUFFOUT.CPTFICHI DIV 128341) 
EMD ; : 
CLOSE FICH1 
END ; 


{ 
oo FRTCODES CH: IHTEGER:F:RERL; C: CODE : 
LONG: TK CC : EYTE; 
ÉEGIH 
IF PRTFLAG THEH 
ÉEGIH 
LIMECOUNT : =LIHECOUNT +1 : 
IF CH=25€ THEN HRITELHE EF *.F:19:6. *,02 ELSE 
ÉECIH 5 
CC:=CCH XÛR -12 AND 2S5: 
1:=CC DIV 16; 
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IF I<19 THEN HRITECCHRC$3Q+I 2) ELSE HPRITESCHRÇS41+1-1H 5); 
1:=CC MOG 16: 
IF 116 THEN HPRITECCHRC#36+1I 5 ELSE HPRITESCHRC $41+1-10 2): 
IF CC>=32 THEN WRITEC’ ’.CHRCCC D) ELSE WRITEC’ .’5; 
HRITELHS* ’:F:19:0. C2 
EHC 
EC: 
LOHG:=<LENCTHCC à; 
LEH:=LEH+LONGECF/8 2: 
CODAGEECH. 91: =LONG: 
J'=i; 
K:=1: 
CC:=<ÿ; 
FOR l:=1 TO LONG DO 
ÉECIH 
IF CLI]="1" THEN CC:=CC OR J: 
IF Je128 THEH 
BEGIH 
CODACGELCH. KT: =CC; 
CL:=f; 
K:=EUCCEK 2: 
Ji=1 
EH ELSE J:æ) SHL 1 
EMHC : 
CODRGELCH. ET :=CC; 
IF CLINECOUNT>229% AH PFRTFLAG THEH 
BEGIN 
HRITELH: 
MRITES ‘Une touche’ 2: 
REPEAT UNTIL KEYPRESSEL': 
LINECOUNT :=9; 
CLRECR; 
HRITELHE CAR. FRÉQUENCE COGE* 


EH£': 
EME: 


{Ai 
PROCECURE PRINTTREE( VAR ROOT : MODETYPE ; C : COLE ): 
4 ImPression du codane } 
VAR PTL.PT2 : INTEGER:; 
BEGIH 
MITH ROOT C0 
FECIH 
IF LEFTCHILD=HIL THEH 
BECIH 
PÉTCODES LEF TCHAR, OBJET 1CLEFTCHRRI, FRÉQUENCE, C+'@° 3: 
IF LEFTCHAPR=25€ THEH 
FECIH 
PLITCHARE TAMPON", 229 à: 
PLITCHARRX TAMPOH"., $FE { END OF FILE * 
END ELSE 
EEGIN 
PUTCHARC TAMPOWT. LEFTCHAR »: 
PUTCHARC TAMPON, &FF 5 
EHD: 
PT1:=PTFICHI; 
PTFICHI:=PT1+2 
EHC ELSE 
BEGIM : 
PUTCHARS TAMPON, SUCC£ € PTFICHI-TABLE » SHP LDFE 
PUTCHARS TAMPOHT, 95; 
PTI:=PTFICH1: 
PTFICHI:=FPTFICH1+2: 
PRINTTREES LEFTCHILD®, C+’@’ 5 
EMD': 
IF RIGHTCHILD=HIL THEH 
tEGIN 


PRTCODE RIGHTCHRR, OBJET 1CRIGHTCHRRI, FREQUENCE , C4” 1° 5: 
PTS: =PTFICH1: | 
PTFICH1:=PTI; 
IF RIGHTCHAR=256 THEH 
BEGIN 
PUTCHARC TAMPOH*, 229); 
PUTCHARS TAMPOH*, &FE à * END OF FILE } 
EHD ELSE 
BEGIH 
PUTCHARC TAMPON", BIGHTCHAR ): 
PUTCHARE TAMPONS, FF à 
END : 
PTFICHI :=PTZ 
END ELSE 
EEGIH 
PTS: =PTFICH1 ; 
PTFICHI:=PT!; 
PUTCHARE TRMPOH®.£€PTZ-TABLE > CHE 2; 
PUTCHARE TAMPON, 9 3: 
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PTFICHI:=PT2; 
FRINTTREES RICHTCHILE. C4? 190 
EHC 
EC 
EHC:: 


C'ESAHE 
ÉEGIH 
HRITELH; 
IF FARANCOUMT=G THEH 
EEGIN 
MRITELNC'£untax: NomFichierL/30 Clestbri21 :: 
HRITELNES ? Le slash fait afficher les codes binaires’: 
HARITELH:; 
UHTILFLAG :=FALSE 
EHD ELSE 
EECIH 
UNTILFLAG:=TRUE ; 
CHCLIN:=""; 
Ë FOR L:=1 TO PARAMCOUNT DO CMDOLIH:=CHMCLIN+PARAMSTRE I 24/2! 
ND; 
REPERAT 
LIHECOUNT : =9; 
LEN:=9: 
LEHG : =6; 
IF NOT UHTILFLAS THEH 
PEPERAT 
HRITEG*#" 5: 
RERDLHCCHCLIN 
UHTIL COLIN 7: | 
FOR Il:=i TO LENGTHECHMOLIN® O0 CHOLIHCII:=UPCASES CMOLIMCII :: 
l:=POSC" ?,CMOLIN?: 
IF I=@ THEN 
BEGIH 
HOHG : =CMOLIH: 
CHOLIN:="* 
EHC ELSE 
BEGIH 
HOMQ: =COPYCCMDLIN, 1, 1-17: 
UHILE <CMDLINEIZ=" 5 AND CISLENGTHECMOLIN32 DO I:=l+1: 
ER IR EINURE SR AMENER ES 
1: =LEHCTHS HOME; 
IF HOMGCI1=’/" THEM 
BECIH 
HONG : COPY HOMA, 1, 1-13 
PRTFLAG : TRUE 
EHD ELSE PATFLAG:=FALSE; 
QPENIN; 
IF IORESULT<2>8 THEM 
BEGIH 
HRITELN£’File not found’): 
CLOSES FICHE 
END ELSE - 
ÉEGIN 
LEHG:=FILESIZE FICHE #128. 9; 
GETFREGCM 2: : 
CRCA:=CRC: C4 Sauver le ChekSum #9 
CLOSES FICHE :: 
CPENIH: 
NOM :=°°; 
CH: =POS< ? : *. HOMB 5: 
FOR I:=CH+1 TO LEHGTHCHOMG) CO HOML :=HOM1+HOMACTT; 
HOMG : =NOF11 : 
CH:=POS< *,. / MOMI 5: 
IF CH=@ THEH HOMI:=H0M1+,0? 
ELSE IF CHeLEHGTHCHONMI 5-1 THEH NOM : =HOMI +’ 01" 
ELSE NOMICCH+2T: =" 0": 
NON : =CHDLIMN4+HONM1 : 
HRITELHE HOMA. ’==2%/ , MOM1 1: 
OPEMOUT : 
TRICH 3: C4 TRIER LES OBJETS #: 
HEMS PROÛT 3 
TREE( PROOTY. His C4 CONSTRUIRE L'AFRRE DCE CODAGE #) 
FOR 1:=09 TO Hg CO COCACECI. 41 :=9: 
FUTCHARS TAMPON. STE à iCe mot es 
PUTCHAES TAMPON. it 
PUTCHARE TAMPOH*. LOC CRC 
PUTCHARS TAMPOHT. HIS CRCS 4: 
FOR I:=i TO LENGTHCHOME) DO PUTCHARC TAMPON". IHTEGERS HOMBET I : à; 
PUTCHERS TRMPONT. 09: Hos criginal du fichier, CBezfinot 
TABLE : =FTFICHI+2: 
PTFICHI: STABLE : 
IF FRTFLAG THEH 


. L'identificateur des fich, come. 


ilot reserve pour le CRC: 


BECIH 
CLESCR: 
HRITELNC CAR. FREGUENCE COLE’ à: 
MRITELHE ee ——t ) 
EMC': 
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PRINTTREES PROOTS. ? ? à: CX IMPRIMER LE COCAGE #9 
RELEASES PROOT 2: 
IF PRTFLAG THEN WRITELNH:; 
LEN : =LEH+4+LENGTHCNOMD 34+1+2+4£CM-1 3: 
IF LEND=LEHD THEN 
PEGIH 
HRITEC/I1 n’’4 aura Pas de reduction de taille. Continuer ? CO-Hi où: 
RERDLNCCRRACT }: 
IF UPCASEX CRRACT 3<>’0’ THEN 
BEGIN 
CLOSE FICHI 2: 
EPASES FICHI : 
GOTO PROMPT 
END à 
END ELSE MRITELNCC1-LEN-LENG)#+106:5:2,/% de reduction’ 2: 
TEMP : =MEMRVAIL : 


TEMP:=TEMP+1152; 
IF TEMPD=MAXINT THEN TEMP:=MAXINT-1: 
TAILTAMPOH : =POUNDC TEMP 2: 
LENTAMPOH:=TAILTAMPOH DIY 128: 
TAILTAMPON : =LEHTAMPONHK 128: 
GETMEMS PROOT . TAILTAMPOH-1 152 >: 
:2PTFICHI: 
PTFICHI:=TABLE-Z: 
TABLE :=CI-TABLE: DIY 4: 
PUTCHRERS TAMPON". TABLE MOD 256: {Le motenorkre d'entree de la tablet 
PUTCOHARS TAMPON. TABLE DIV 2565: 
PTFICHI:21: 
4 Transformation des donnees } 
SRYEBITS:=9; 
PTEITS:=1: 
HHILE GCETCHARC CH C0 PUTEITS<CODAGELCH. 11, CODAGELCH, 61 5: 
PUTEITS CODAGEL2SE, 11. CODACEL256 . 91 :: 
CLOSEQUT£ TAMPON" 5: 
PROMPT: CLOSEXFICHO à 
END 
UNTIL UNTILFLAG 
END. 


Dans cette nouvelle rubrique, qui nous l'espérons sera - comment dans un programme FORTH obtenir la bascule 
régulière et fournie, vous trouverez toutes les questions majuscules/minuscules. 
que vous vous posez concernant la programmtion, les 
langages, les systèmes, les réseaux, la technologie. 
Tllustration de couverture et ci-contre réalisées sur 
IL tient à vous, adhérents de JEDI, d'y apporter une THOMSON T07-70 à l'aide de COLORPAINT 
réponse. Toutes les réponses reçues seront publiées dans . PE 
cette rubrique. : 


QUESTION 1 de Mr RIBOULET (33610 CESTAS) 

Comment effectue-t-on le calcul du module en nombre 
complexe sous FORTH (racine de xM+yÆ}). Le but de cette 
question est de permettre la création d'un programm de 
calculs en nombres complexes. 


QUESTION 2 de J.Y. MALEGEANT (44000 NANTES) 
Concernant l'HECTOR HRX: 


- comment programmer les équivalences INP et OUT du BASIC 
3X pour les ports du I &55 (problèmes d'adresses?). 
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Nos contacts avec le groupe des utilisateurs du langage 
FORTH en RFA deviennent de plus en plus suivis. Après 
divers échanges de courrier et de coups de téléphone, nous 
eonmes en mesure de vous apporter des précisions sur une 
association très active et avec laquelle nous avons 
convenus d'échanger le plus régulièrement possible des 
informations, des produits et des articles. 


UN COUP D'OEIL 
SUR LE GROUPEMENT FORTH. 


Structure: 

Le groupement des utilisateurs de FORTH a son siège social 
à HAMBOURG (HAMBURG). De là sont coordonnées les diverses 
activités, l'expédition du magazine 'VIERTE DIMENSION' et 
résolues les questions. Ici s'y trouve aussi la direction 
qui organise la réunion annuelle des adhérents. Le "vrai" 
travail concernant FORTH est réalisé par les groupes 
locaux et les groupes de travail. Chacun dispose d'un 
coordinateur, lequel rend compte des activités. 


DIRECTION 
REUNION DES ADHÉRENTS 
COORDINATEUR 


GROUPE IOCAL 


ADHERENTS 


GROUPE DE TRAVAIL 


Historique: 

Début 198, le groupement des utilisateurs du langage 
FORTH (BGB) s'est constitué dans le nord de 1'Allemagng à 
partir de 24 Forthiens. Fin 84, une association 8 est 
constituée, dont la réputation s'est consolidée fin 85. 
Tin 86, le groupement des utilisateurs du langage Forth 
compte environ 200 membres à travers toute l'Europe. 


Buts: | 

Le but essentiel du groupement Forth est de faire 
connaitre le langage Forth ainsi que les principes de 
programmation qui en découlent. Ceci suppose des cours de 
formation, des réunions d'informations, ainsi que des 
travaux de groupe sur des projets d'intérêt général. 


Activités: 

Le groupement des utilisateurs de Forth coordonne les 
activités, diffuse les informations provenant d'un 
utilisateur ou d'un groupe de travail. Ci-joint un coup 
d'œil sur les principales activités. Les détails sont 
fournis par les personnes dont les adresses figurent ci- 
après. Les initiatives pour une extension des activités 
sont les bienvenues! 


VIERTE DIMENSION (QUATRIEME DIMENSION) Magazine Forth 

La seule publication Forth en langue allemande diffusant 
les documents, articles et références pour contact. 
Rédaction: Michael KALUS (notre contact noi pour JHI) 
Praesidentenstr.40, D-5830 SCHWELM, tel: (19-49) 02336 
82204 (ne pas composer le 'O' à partir de la France) - - 


volksFORTHB3 groupe de travail 

Forth pour C64, ATARI ST et SCHNEIDER (AMSTRAD) CP/M 
(MSDOS en cours... mais JIDI est sympa et leur en a envoyé 
un exemplaire). 

Contact: Bernd PENNEMANN (notre contact no2 pour JHI1) 
Steilshooper Str.46, D-2000 HAMBURG 60, tel (19-49) 040- 
6900539 


ForthTREE (l'arbre FORTH) 

Le système d'information et de commnication du Groupe 
Forth (boite aux lettres). Pour contact téléphonique: (19- 
49) 040-3904204 (300 + 1200 bd). Autres systèmes locaux en 
cours d'étude. 
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puis 40 39004204 .. sonnerie .. porteuse .. et connexion] 


par M.PETREMANN 


Sys0p: Marco PAUCK 
Friensallee 92, D-2000 HAMBURG 50, Tel: 
39001 39 


(19-49) 040- 


La ligne service du bureau Forth 
Pour toute information, question et renseignements. En 
ligne directe avec nos experts. Tous les mardis de 18-—20h 
au (19-49) 040-3904204 


Bibliothèque 
Au siège social sur tout ce qui 
consultable par tous les membres. 


concerne Forth et 


Service copie d'articles et programmes pour tous les 
membres. 

Contact: Thomas PRINZ 
Adalbert-StiferStr.2, 
06271-28530 


D-6930 EBERBACH a/N, tel: (19-49) 


euroFORML 

Réunion annuelle des experts Forth du groupe européen 
tForth Modification Laboratory (FORML)' en provenance 
d'Europe et des USA. 

Contact: Klaus SCHLEISIEK 

Steinberg Ba, D-2000 VWEDEL, tel: 
13255. 


DT RER ARR LRQ 


L'ARBRE FORTH (ForthTREE) 


(19-49) 04103 


C'est le système de communiaction du FIG HAMBURG. Pour les 
adhérents de JEDI nous avons fait un essai de 
commnication afin d'évaluer l'intérêt des services et 
informations proposées. Nous y avons trouvé un serveur 
(300-1200bds) d'une qualité et d'une facilité de 
consultation qui mérite d'être sigmalé. Aucun service 
n'est restreint. Bien entendu, il est impératif d'avoir 
des notions de langue allemande. Nous avons enregistré une 
communication sur ForthTREE dont vous trouverez la 
transcription ci-après. Chaque ligne est le reflet des 
informations telles que nous les avons reçues. Pour plus 
de commodité, nous avons traduit l'essentiel. Cependant, 
nos explications complémentaires seront indiquées entre 
crochets [comme ceci]. 


[composer le mméro 19  ..tonalité grave.. 4 


Appuyer. sur <RETURN> svp 


Bienvenue dans la base de données forth 
du groupement des utilisateurs du langage FORTH 


La base de données a commencé ses activités le 28-AVR-86. 
Les nouveaux arrivants utiliseront la commnde 
READ EL NFUEHRUNG 5 


pour avoir les informations de base leur pernettant de 
travailler sur la base de données. 


Attention: la base de données est inactive le mardi de 18- 
20h. ‘Durant ce laps de temps, vous serez en ligne directe 
avec un de nos animteurs pour toute information. 


[nous vous donnons ici les informations permettant de 
manipuler ForthTR£E afin de diminuer le temps de 
communication 


RFAD HILFE pour obtenir de l'aide à tout moment 
READ KONFERENZEN pour commencer 


<CNTRI--S> stop, <CNTRL-® continuer. 
<C> interrompre, <NW> passer et continuer 


4% 12-N0V-56 HILFE 
nouvel arrivant: KONFERENZEN 
messages lus: 411 


<CNTRI-S> stop, <CNTRL-Q continuer 

Seules les commandes et options, tel B)EFEHL listées ci- 
après, au format abrégé sont valides. Les informations 
<noms> ne peuvent être abrégées. 


Les commndes principales: 


affiche une information <nom. 
affiche la première partie d'une 
information <nom. 


<name> 
B)ROWSE <name> 


I)NDEX <name> affiche une Liste de toutes les 
informations suivantes. 
P}ARENT montre au débutant l'information en 


référence arrière. : 
rajoute une information à celle 
nommée <nom . 


A)DDTO <name> 


LOGOFF, BYE pour interrompre la liaison. 


<C> où <D interrompent un R)FAD, B)ROWSE ou I)NDEX. 

< ou <NW> interrompent un R)EAD ou B)ROWSE et laissent 
l'accès à l'information suivante, sous réserve de 
modification des options C)OMPLETE ou S)TARTING. 


I HILFE liste les menus d'aide détaillés. 

R HILFE C montre tous les menus d'aide afférents à 
l'information courante. 

R EINFUEHRUNG guide d'utilisation pédagogique. 

R KDNFERENZEN revient an sujet de départ, 
Informations suivantes: 


-04-AUG-86 HEFEHLE 
.04-AUG-86  OPTIONEN 


COMMANDES 
OPTIONS 


[Ici nous avons essayé une commande au hasard. Quelle 
chance, ForthTREE avait la référence dans son catalogue | 


Befeh1? I FORTH 


[La partie française est de notre cru. Elle permet aux non 
germanistes d'avoir une idée du contenu de la base de 
données afférente à FORTH dans ForthTREE. Cette liste peut 
paraitre un peu longue, mais elle permettra à ceux, qui 
consulteront cette base d'écourter le temps de connexion, 
et leur facture téléphonique, en troouvant immédiatement 
la référence qui les intéresse. Exemple: 


Befeh1? R NOVIX4000 


vous liste le contenu de l'article faisant référence au 
microprocesseur NOVIX 4000. ] 


02-JUN-86  FORTH 
.14-DEC-86  FORTH. GESELLSCHAFT 
..31-DEC-86 LOKALE. GRUPPEN 


FORTH 
Groupement FORTH 
Groupes locaux 


+..28-JUL-86  HAMBURG HAMBOURG 
s..t1-JUN-86 TERMINEB6 

+..24-JAN-87 TERMINEB7 

+..22-MAY-86 KARLSRUHE KARLSRUHE 
...19-OCT-86 WUPPERTAL WUPPERTAL 
....19-0CT-86  THEIMENB6 Thèmes 86 
s..30-JUL-86 DARMSTADT DARMSTADT 

+. 20-NOV-86 MUENCHEN MUNICH 
...31-DIC-86 PADERBORN PADERBORN 
+..22-MAY-S6 BERLIN BERLIN 
+..22-MAY-86 HANNOVER HANNOVRE 

+. 30-JUL-86 FREIBURG FRIBOURG 
+..22-MAY-86  FRANKFURT FRANCFORT 
+..31-DIX-86 STUTTGART STUTTGART 
s..25—JAN-87 MAINZ MAYENCE 
..31-DEC-86 FACHGRUPPEN GROUPES DE TRAVAIL 
...22-MAY-86 VOLKS/ULTRA-FORTH idem 
+..31-DEC-86 GRAPHIK GRAPHISME 
...31-DEC-86 32-BIT-FORTH FORTH 32 BITS 
+..51-DEXC-86 FORTH-MASCHINEN MACHINES FORTH 
..25-—JAN-87 KI KI 

+.25-—JAN-87  DATENKOMMUNIKATION TRANSMISSION DONNEES 
..31-DEC-86 FG-INTERNATIONAL Groupes Forth INTERN. 
...31-DEC-86 HOLLAND HOLLANDE 
...3t-DEC-86 OESTFREICH AUTRICHE 
+..25—JAN-87 SCHWEIZ SUISSE 
+..25-JAN-87 ENGLAND GRANDE HRETAGNE 
..25-—JAN-87 HELGIIN BELGIQUE 
+..25JAN-87 IRLAND IRLANDE 
+..25-JAN-87 ITALIEN ITALIE 
<..25-JAN-87 FRANKREICH FRANCE 
+...31-DEC-86 FRONKROISCH 299? 
..19-OCT-86 FORTH.MAGAZIN MAGAZINE FORTH 
...17-JUN-86 GAST.EDITORIAL EDITORIAL INVITE 
...01-SEP-86 INFO-HEFT3 CAHIER INFOS 3 
...07-JAN-87 INFO-VII/NO.4 INFO VI1/No 4 


..14-DEC-86 MITGLIEDSCHAFT 
...14—0CT-86 JAHRESTREFFEN.86 


TRAVAUX DES ADHERENTS 
REUNION ANNUELLE 86 


-07-MAY-86  FORTH.SYSTEME SYSTEME FORTH 
..22-APR-86 FIG FIG 

...27—0CT-86 FIG-EUGS BUGS du FIG 
-.18-APR-86 F83 F65 

-..27-MAY-86 F83.W F85.W 
s...11-JUL-86 F83.APPLE F65.APPLE 

ou 11-JUL-86 ANT:F83.APPLE REPONSE: F83.APPLE 
+.:28-AUG-86 FS83-SOFTWARE LOGICIELS FB3 


+...27-NOV-86  FULL-SCREEN-FDITOR 
+..28-DEC-86 V24.AN.CP/M.F83 
+..06-JAN-87 F83-IRM-SOURCE 


...O6-JAN-87 METAS6.RIK META86.BLK 
+...06-JAN-87 KERNELS6.BIX KERNELS6. BLK 
+...06-JAN-87 EXTINDS6.BIK EXTENDS6. BLK 
+...06-JAN-87 CPUBOS6.BIK CPU8086. ELK 
<..06-JAN-87 UTILITY.RIK UTILITY.HLK 
+...O6-JAN-87 HUFFMAN.BIK HUFFMAN. BLK 
+...O6-JAN-87 CLOCK.BIK CIOCK.BLK 
<...O6-JAN-87 FS3-FIXS.TXT MISES A JOUR F83 
...15-JAN-87 FS3-IEM-SOURCE??? SOURCE??? F83 IBM 
+..:16-JAN-87 METACOMPIIATION. .. METACOMPIIATION. .. 
sis 16-JAN-87 WAR NICHT? POURQUOI PAS? 


ss... 17-JAN-87  OBJECICODE-TRANSFER TRANSFERT CODE OB 
sas 18-JAN-87 FILECONV.EXE? ‘ 

... ...18-JAN-87 TESTFILE 
-.21-APR-86  VOLKSFORTH 


..21-APR-86 VOLKS 


+..10-MAY-86  VOLKSFORTH.UPDATE. 
...11-MAY-86 DICTIONARY. FULL? 
..28-MAY-86 CASSETTE? 


!11.28-MAY-86  ANTW 


...08-SEP-86 VHS-KURS 
+...12-NOV-86 VDI-SIMINAR 
...26-0CT-86  PUBLIC.DOMAIN? 
+...26-00T-86  AERGERLICH? 
+...:26-0CT-86 UMSTAENDLICH! 
...10-NOV-86 VERSION-3.80! ! 
....27-DKC-86  NEUES.HANDBUCH 
..28-JUN-86 TI-99/4A? 
+..30-JUN-86 TI-99/4A!1! 
..11-JUL-86  WO.APPLE-FORTH 
+..15-JUL-86 APPLE-FORTH.HIER 
..14-00T-86  SIRIUS-PC? 
.0t-JUN-86  FORTH. MASCHINEN 
..22-APR-86  WINPFIELD 
..22-APR-86  RENCHMARKS 
..26-MAY-86  SYMBOLIC.CONTROL 
...15-SEP-86  MEHR-INFOS? 
+...16-SEP-86 ALLE-INFOS! 
..30-JUL-86 NOVIX-CHIP 

+. 30JUI-86 NOVIX-LEUTER 
<..01-AUG-86  DELTA-BOARD 
+...01-AUG-86  DELTA-BOARD-FRAGEN 
LS O2-AUG-86  DELTA-BOARD-ANTWORT 


+...16-SEP-86 FORTHKIT KIT FORTH 
+..15-SEP-86 NOVIX. IN.HAMBURG NOVIX A HAMFOURG 
+..28-SEP-86 V4000 V4000 
+.+04-OCT-86 NEUE-CHIPS NOUVELLES PUCES 
+..04-N0V-86 NOVIX-EBI NOIX EB! 
+..04-N0V-86 NOVIX-CLUB CLUB NOVIX 
.07-MAY-86  FORTH. FRAGEN QUESTIONS SUR FORTH 
..07-MAY-86  FORTH-ANLEITUNG? CONSEIL FORTH? 
..16-MAY-86  FORTH? FORTH? 

-.04-SEP-86 8O85-FORTH-HEX-LISIN  LISTING HEX FORTHB085 
+..05-SEP-86  HEX-LISTING? LISTING HEXA? 


..06-0CT-86  F85-LEHRBUCH 
07-00-86 ANT: FS3-LEHRBUCH 
....18-0CT-86  HEZUGSQUELLE 
-.22-JAN-87  FORTH_BUECHER 
...25-JAN-87 ANT: FORTH BUECHIR 
..26-JAN-87  FORTH. BUECHER 
.31-AUG-86  FORTH.CODE 
..02-JUN-86 _ WORT.DES. MONATS£! 
-….26-NOV-86  WORT.DES. MONATS£2 
..31-AUG-86  FIG-LIERARY 
...3t-AUG-86 EXPLAIN 
.….04-SEP-86  RANDOM-NUMHERS 
..04-SEP-86  TRANSTENT-DICTIONARY 
...06-SEP-86 MINI-TREE 


....06-SEP-56 FRE 


....06-SEP-86 FHES2 
++31-AUG-86  DOWNIOAD-PROTOKOLL 
+ +01-SEP-86  TERMINALPROGRAMM 


+...14-—OCT-86  TAGESORDNUNG 
+...09-DEC-86  PROTOKOLL.MVB6 
+..11-NOV-86 MIKROMODUL 
+...11-NOV-86 JAHRESVERSAMMLUNG 
+.11-JUN-86  BUEROZEITEN 


ORDRE DU JOUR 

PROTOCOLE MV 86 
MICRO MODULE 
RASSEMBLEMENT ANN. 

HORATRES DU BURFAU 


NEWS 


DICTIONNAIRE PLEIN? 
CASSETTE? 
REPONSE A CASSETTE 
COURS SUR VHS 
SEMINAIRE VDI 
DOMAINE PUBLIC? 
CRISPE? 
COMPTE RENDU! 
VERSION 3.80! ! 
NOUVEAU MANUEL 
TI-99/4A? 
TI-99/4A!11 
WO pour FORTH APPLE 
ICI pour FORTH APPLE 
PC?-SIRIUS 
MACHINES FORTH 
WINFIELD 
TESTS DE PERFORMANCES 
CONTROLE SYMHOLIQUE 
PLUS D'INFORMATION? 
TOUTES LES INFOS 
PUCE NOVIX 
LA LETTRE NOVIX 
CARTE DELTA 
QUESTIONS CAR.DELTA 
REP./ CARTE DELTA 


.CASSETTE 


OUVRAGE DEBUTANT F33 

REP: OUVR.DEB. F63 

TRAITEMENT SOURCES 
LIVRES FORTH 

REP: LIVRES FORTH 
LIVRES FORTH 
CODE FORTH 

??? 

97? 

LIBRAIRIE 
EXPLICATIONS 
NOMRES ALEATOIRES 
DICT. TRANSITOIRE 
MINI ARBRE 

FEES 

FBBS2 
PROTOCOLE DOWNLOAD 
PROGRAMME DE TERMINAL 
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..03-SEP-86 GEM.MIT.VOLKSFORTH GEM AVEC FORTH to determinel: whether a drive is legal, and renamed it 
..17-SEP-86  CHUCK-MOORE-FORTH FORTH CHUCK MDORE SELECT. - L 

...06-JAN-87  CHUCK-MORE-FORTH2 FORTH2 CHUCK MORE * DRIVE? prints the current drive. 

..17-SEP-86 APPLICATION-RESEARCH  APPLICATIONS+RECHERCHE 

..16-JAN-87 QUICK-TEXT-FORMATTER FORMATAGE TEXTE RAPIDE Und man? R FB3-SOFTWARE 


[ Ici nous avons fait un essai de lecture d'un sujet] #4 2B-AUG-86 F83-SOFTWARE 
Vorgaenger: F3 
Befeh1? R IB3-FIXS. TXT gelesen: 49 
6 O6-JAN—87 FB3-FIXS. TXT Einen ganzen Haufen Forth Programme fuer das F85 findet 
Vorgaenger: FB3--IBM-SOURCE man in einer Library, die von John À. Peters betreut wird. 
glesen: 21 Der dort  gesamæite Forth—Code ist allerdings von 
unterschiedlicher Qualitaet. FEinige der Programme und 
LIST F63-FIXS Tools aus der Library werden wir im Zweig FIG-LIBRARY 
veroeffentlichen. 
This file describes most of the changes to F83 between [Une grande quantité d'ouvrages FORTH sont disponibles à 
versions la librairie tenue par John A. Peters. Les divers codes 
1.0 and 2.0. Forth sont disponibles. Divers programmes et outils de 


cette librairie sont diffusés dans la branche FIG-LIFRARY. } 
-1t is always difficult to follow a mving target. In the a 
six months since we released version 1.0 we have received 
so mary good suggestions that the temptation to use some LIFBRARY MANAGED BY: 
of them was impossible to resist. To all of you who 
contributed, thank you again. We will try to avoid any . John A. Peters Phone (415) 239-5393 
further changes until 198 at the earliest. If there are 121 Santa Rosa Ave. 8-9 am or after 7:30 pm 
bugs, w will report them separately. Updating the various San Francisco, CA 94112 or week ends. 
versions is a lot of work even without offering any 
support, and we are tired. It is time to move on to These screens are 83 standard FORTH Laexen/Perry Model 
applications, and do something useful for a change. | 2.1.1. They may be copied and improved, but they my not 


be sold. SHARE WARE IS À TWO WAY STREET. Upload a file 

The changes were as follows: you improved etc. If you found a file(s) you like, donate 
$7.00 to FIG Library. Write to me c/o FIG Tree HBS (415) 

General: 538-3580 300 bps (Text) or CL BES (415) 957-9370 300/1200 


* Removed the superfluous NOOP fran all self-defining Fe and E-Mail) New ideas? 

words. Ici le numéro pour se connecter à la librairie FORTH en 

* Changed all instances of C; to IND-CODE ( by request). 300/1200 bauds aux USA!!!. Les écrans sources ainsi 

* Partitioned META into META.HIK ( the meta-compiler ) and diffusés sont libres de tout droit mais ne peuvent être 
KERNEL.ELK ( the source for the kernel ). vendus. Si vous trouvez un programme qui vous plait, 

envoyez la somme de 7.008 à la Librairie FIG -principe du 

SHARE WARE-] 


Folgenachrichten:  [Information(s) suivante(s)] 
.23-NOV-86  FULL-SCREEN-EDITOR 


Befeh1? R FRANKREICH 


# Removed null fran the system. Sealed search orders no | 
longer require the old magic null word. X#% 25-JAN-87  FRANKREICH 

* Fixed PARSE and PARSE-WORD. They used to increment IN Vorgaenger: FG-INTERNATIONAL 

past the end of source text. gelesen: 8 [signifie le nanbre de fois où une 
# Changed CP/M to DOS. info a été consultée] 

* Moved kernel DOS words into DOS vocabulary. 

* Added USER VARIABLE IN-FILE. All file operations read Franzoesisches FIG-Chapter 

from IN-FILE and write to FILE. This allowed removing the 

confusing FILES vocabulary. User interface is unchanged: Kontakt: 

FROM <file> makes <file> the IN-FILE. OPEN <file> makes 

both the same. IOAD uses IN-FILE, then resets it to FILE. Jean-Daniel Dodin 


This is probably appropriate. 77 Rue du Cagire 
# FBLOCK and FEUFFER take an fcb address and a block F-31100 Toulouse 
number. Tel.: (16-61)44-03 


* SWITCH exchanges FILE and IN-FILE. 

#  ?UPPERCASE conditionally forces a string to upper case. Folgenachrichten: 

Used by DEFINED and FORGET. .31-DEC-86 FRONKROISCH [Là on n'a pas compris et on ne 

* IMIT primitives renamed: (CONSOLE) is console only, cherche pas à comprendre. Ce sera pour une autre fois.] 

(EMIT) is for console and mybe also printer, depending on 

PRINTING. Befehl? BYE [Ici on a décidé de décrocher, parce que en 

* Fixed CONTROL. 300 bäs, bonjour la facture... ] 

* Made default (PRINT) not use LISTST, because it hangs on 

may systems. Optionally use LISTST if available for Vielen Dank fuer Ihren Anruf! 

faster spooline. [Merci beaucoup pour votre appel!] 

* Renamed FORTH control character table fran CC1 to CC- 

FORTH. 

* Changed DO to ?D0 in -TRAILING. COMMENTATRE 

* Deleted HEADER from CREATE, made CREATE do it all. 

* Changed ,VIEW to make file O-if HIK is O. = Enfin un- serveur FORTH digne d'intérêt.en Europe.. À noter 

* Added çS for comment to end of screen. que la connexion avec la RFA (1 taxe/10 sec) n'est guère 

* Added better error handling for disk reads and writes. plus coûteuse qu'une commmication interurbaine (t taxe/12 

# Accessing a HLOCK which is Out of Range no longer leaves sec). Certaines informations sont du plus grand intérêt, 

the buffer assigned to the non-existent block. nottament celles concernant le NOVIX4000 et qui sont en 

# Changed DISCARD to mark discarded buffer as empty. anglais. En outre, on y trouve les coordonnées de groupes 

* ,FILE and FILE? added to display file names. de travail et de personnes compétentes. Pour ceux qui ne 
\ pratiquent pas l'allemand, ils pourront communiquer avec 

EXTEND: la majorité des animateurs du FIG HAMBOURG en langue 

* Split ONLY into the ONLY operator and the ROOT anglaise. 

vocabulary. 

* Removed OPEN-FILE from FILE: and added it to VIEW. M 

* Added VIEWS which installs files into VIEW-FILES table. 

# Moved SET-DRIVE into EXTEND, changed it to use the BIOS 
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- instructions IF, ELSE, et LOOP exécutables en un seul 


— cycle. 
RACINE CARREE 16/32 BITS par FIG HAMBOURG - extraction de racine, multiplication et division en un 
seul cycle. 


- accès à la mémoire locale (fetch et store) en un seul 
cycle. 
- deux ports bi-directionnels. 


Dans le muméro 27, nous diffusions une première version du 
calcul de l'extraction de la racine carrée d'un nombre. Le 
magazine VIERTE DIMENSION posait ce problème à titre 
d'exercice aux membres de FIG-HAMBOURG. Voici le compte 
rendu des réponses obtenues. 


Le uP NC4000P est le premier membre de la famille NOVIX 
d'une gamme de microprocesseurs à grande vitesse. 
L'intérêt du NC4000P est d'intégrer des instructions de 
haut niveau de manière identique à des instructions 
machines. | 


Résolution de l'exercice du précédent magazine: le mot 
s'appelait WURZEL. Nous ont répondu: 


Le NCACOOP semble particulièrement adapté au traitement de 
données en temps réel. Pour indication, voici un aperçu 
des performances du NC4000P. 


(1) Finn Berlev, Lillevangsvey 9,  DK-3520 FARUM, 
DANEMARK 


(2) Ulrich Hoffman, Hermsstrasse 71, D-2300 KIEL 1, HD 


Boucle à vide O à 1 000 000 


(3) Joh. Polster, Speerstrasse 7, CH-850 VWädenewil, 
Suisse. 


68000 (8MHZ) polyForth 18 
68000 (8MHZ) Assembleur 7. 
Intel 80286 (10MHZ) C 5. 
2 
Î 
0 


NC4000P (6MHZ) novixFORTH DO. .I0OP 
MM6LP (20MHZ) FORTH 
NC4000P (6MHZ) novixFORTH FOR. .NEXT 


Bonne chance au nom du groupement des Utilisateurs de 
Forth. La formule à appliquer était: (n+1)"2=n"2+(2n+#1). 


Mr Polster commentait la pile et l'algorithme per: 
WURZEL ( n-au-carre -— chaîne) 


Crible d'Eratosthène x 10 


Mr Hoffman avait une autre proposition pour le nom del|| 68000 (&MH7) polyForth 29.0 8 
cette fonction. Il écrit:" le plus évident est SQR, mais|| 68000 (8MHZ) Assembleur 4.98 
en Pascal on préfère SQRT. Personnellement, je penche pour || Intel 80286 (10MHZ) C . 6.65 
CRT (pour: carrot) ou en bon allemand MARB (pour: Mohrrube|| VAX 70 C 1.48 
- en français carotte) et me déterminais finalement pour || CRAY-1 FORTRAN 1.18 
l'icone v- comme nom. MM6LP (20MHZ) FORTH 1.09 s 

NC4000P (6MHZ) novixFORTH (cell) 0.85 s 
Mr Berlev résume le problème par SORT. ‘Ce problème me|| NC4000P (6MHZ) novixFORTH (optimisé) 0.455 
rappelle le temps, il y a déjà longtemps, où j'apprenais à || IEM 3033 PL/T 0.%6 8 
faire ce calcul à la min..." et commente DSQRT par || IEM 3081 PL/I 0.54 8 


"...n'est pas le plus élégant, mis peut être utilisé pour 
des nombres double précision et délivre le reste." 


+: SORT ( limit — n ) 1 swap O ?do 2+ dup +loop 2/ ; 8068 (IBM PC) PolyFORTH 19.0 5 
68000 (8MHZ) PolyFORTH 9.5 s 

: (DSTI) ( uâ — a0 aî..an - 1n) SUN 2/120 (6&K) € 1.758 
1 begin >r 4 ud/mod 2dup or INTEL 80286/310 (10MHZ) C 1.28 
while r> 1+ ‘NC4000P (6MHZ) novixFORTH 0.19 58 


repeat 2drop 1- r> ; 
: (DSQRT2) 


L'ensemble de développement NC4000P se nomme FORTHkit's. 


( a0 at..an - 1 n — ur ug) 


1 under ?do Contact: COMPUTER COWBOYS, 410 STAR HILL ROAD, WODSIDE, 
2% -rot 4 * + over 2* CA-94062 (USA) tel: (19-1) 415-851 4%62 
2dup D if - 1- swap 1+ 
else drop swap then loop ; Attention, l'équipe de MOORE qui a déjà réalisé Le NOVIX 


4000 planche sur un nouveau produit qui devrait voir le 
jour début 87, le NC6000, dont voici en avant première 
quelques caractéristiques: 


: DSQRT ( ud — ur ug ) 
2dup d0= ?exit (dsqrti) (dsqrt2) : 


- machine 16 bits 
- 2 uCMOS 
- 9ME 

- 14 Mips 


Glossaire 


SQRT ni — n2 
"squareroot!" 

Prend un nombre ni sur la pile et calcule la racine 
carrée de ce nombre en tant qu'entier 16 bits sans le 
reste. 


à suivre... 


DSQRT ud — ur uq 
"d-squareroot" 
Prend un nombre double précision non signé sur la pile 
et calcule la racine carrée uq et le reste ur tels que 
ud=ug”"2+ur. 


NOVIX 4000 FIG WUPPERTAL 


Autre information nous parvenant d'Allemagme. Elle 
concerne le nouveau microprocesseur NOVIX 4000 dont voici 
les caractéristiques (extrait du cahier du groupement 
d'utilisateurs Forth de WUPPERTAL, animteur Michael 
KALUS). 
À EC = = 
— processeur mnochip HCMOS programmable en Forth. 

- interprétation directe de la mjorité des primitives 
Forth en un cycle machine. 

- temps de cycle: 125 nano secondes. 

on un adressage 64K. Passage à 4M en adressage 
tendu. 
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FORTH 


Chaînes de 


OPERATIURS D'ENTREE ALPHA-NUMERIQUE 


opérateurs d'entrée alpha-numérique 
caractères 


par Gérard SOULA 


QUERY 1 WORD 
COUNT ROT MIN- 
ROT SWAP CMOVE ; 


Difficulté de programmation myenne 
Catégorie chaînes de caractères 
Difficulté d'exercice facile 


L'EXERCICE: 
Forth permet, à partir des mts de base, de créer toute 
sorte d'opérateurs de saisie alpha-numériques. 


LE PROGRAMME: 
D'abord quelques explications sur ces mots qui peuvent 
être où non présents selon les versions de Forth. 


BIANK ( ad n ——) parfois nommé BIANKS remplit de 
caractères 32 n octets à partir de l'adresse ad. 


WORD ( c ——ad) saisie d'une chaîne dans le tampon 
d'entrée jusqu'à un délimiteur c (code ASCII) ou sur une 
longueur forfaitaire variable selon les systèmes (40, 72, 
#0). Puis il transfère cette chaîne à HERE dont il fournit 
l'adresse en mettant dans le premier octet la longueur. 
Certaines versions de FORTHne fournissent pas cette 
adresse. 


TEXT ( c-—) transfère la chaîne saisie dans PAD avec: 


soit en mettant la longueur de la chaîne dans le premier 


octet, soit en mettant directement la chaîne. 


Mais ces mots ne permettent de saisir des chaînes qu'à la 
volée si on veut saisir lors de l'exécution d'un 
programme. On utilisera par exemple QUERY pour définir 
PUT. On peut aussi vouloir saisir une chaîne et la 
transférer à une adresse spécifiée sur une longueur 
maximale: SPUT 


EXEMPLES D'UTILISATION: 


SALUT vous demande votre nom et dit bonjour. L'affichage 
diffère selon la version de TEXT. 
PAD CŒOUNT TYPE si la longueur est dans PAD. 


PAD 80 - TRAILING TYPE dans le cas contraire. 


?IDENTITE saisit le nom et le prénom dans deux variables. 
11 y a remise à blanc de la variable sur la longueur 
maximle et contrôle de la longueur à transférer pour ne 
pas aller écraser le dictionanire. 


.IDENTITE affiche le nom et le prénom. 


EXTENSIONS POSSIBLES: 

Contrôle de la nature de la chaîne saisie et message 
d'erreur. gestion d'écran et définition de zones de 
saisie. 


LE LISTING: 


: HLANK 32 FILL ; 
: WORD WORD HERE ; 


: TEXT ( c ——) ( la chaine s'implante dans PAD+#1 
PAD 80 HLANK WORD ( PAD contient la longueur 

PAD OVER Ca 1+ ( on transfère la longueur 1+ 
CMOVE ; i 


: TEXT ( c ——) ( la chaîne s'implante à partir de PAD ) 
PAD 80 BLANK ( initialisation de 80 octets ) 
WORD ( saisie de chaîne stockée à HERE } 
COUNT { adresse de départ et longueur ) 
PAD SWAP ( adresse de destination ) 
CMNE ; ( transfert dans PAD ) 
) 
) 
) 


: PUT QUERY 1 TEXT ; 


: SALUT 

CR ." Quel est votre nom? " PUT 
CR ." Bonjour " 

PAD 80 -TRAILING TYPE ; 


: SALUT 

CR ." Quel est votre nom? " PUT 
CR ." Bonjour " 

PAD COUNT TYPE ; 

: SPUT ( ad lg —) 
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CRFATE NOM 20 ALIOT CREATE PRENOM 20 ALIOT 
: ?IDENTITE 

CR ." Nom? " NOM DUP 20 BLANK 20 $PUT 

." Prenom? " PRENOM DUP 20 BIANK 20 S$PUT ; 


.IDENTITE CR 
NOM 20 -TRAILING TYPE SPACE 
PRENOM 20 -TRAIÏLING TYPE CR ; 


CHAINES DE CARACTERES 


pan 


REFERENCES : 
Difficulté de programmation myenne 
Catégorie utilitaire 
Difficulté d'exercice moyenne 


L'EXERCICE: 
I1 s'agit de se constituer quelques utilitaires de 
gestion de chaînes de caractères. 


LE PROGRAMME: 


$ ( n -— xxx) permet de déclarer ne variable alpha- 
numérique de longueur n, nommée xxx et dont m structure 
est la suivante: ‘ 

- 4er octet contient la longueur maximale 

- 2ème octet contient la longueur de la chapqine 

_ les n octets suivants contiennent la chaîne. 


Lorsque le nom xxx est tapé, on obtient l'adresse 
d'implémentation de la chaîne elle-même, c'est à dire 
l'adresse de son premier caractère affichable. 


SMAX ( xxx — lgmax) donne la longueur maximale de la 
chaîne xxx. 


8. ( xxx —) affiche la chaîne xx 


$" ( xxx ——) saisie d'une chaîne à la volée et la 
transfère dans xxx en contrôlant la longueur. 


$! ( xxx —) pareil mis arrète le programme. 


EXT ( at lg ad2 —f) compare les chaînes de 
caractères implantées à ad et ad2 sur la longueur lg et 
rend les paramètres suivant: 

f=0 si les chaînes sont égales 

f==1 si adt < ad2 

=1 si adi > ad2 


= ( xxx xx! — f) compare les chaînes x et xxx" 

LEFT ( xx n ——) affiche les n caractères à gauche de 
XXX« 
.RIGHT ( xxx n —) affiche les n caractères à droite de 
XXX« 


POUR UTILISER L'EXERCICE: 


20 $ NOM 

$" PSI.EDITION 

$. affiche PSI.EDITION K 
LE LISTING: 
: $-(n — xxx) ie. 
CREATE ( crée le nom de la variable) 
DUP C, ( stoce la longueur mximale) 
OC, ( longueur de 1a chaine présente) 
DOES> ( xxx — ad) 

2+ ; ( adresse d'implantation de la chaine) 


: SMAX ( ad — lg) 2-Ca ; 
: SLEN ( ad — 1g) 
: $. ( ad ——) DUP $LEN TYPE SPACE ; 


og suite page 20 


s PU ( xxx — 


3yY) 
DUP £MAX HERE OVER HLANK 1 WORD  ROT 1- ROT CMOVE ; 


FORTH 


LE ROBOT MULTISOFT 


C'est un petit robot entrant dans la catégorie des bras 
manipulateurs et dont la vocation est essentiellement 
pédagogique. Il possède six mteurs pas à pas, permettant 
le découpage en autant d'organes élémentaires: 


- la base, 

- l'épaule, 

- le coude, 

- le poignet, 

- rotation de la min, 
- les doigts. 


Il est alimenté en courant continu 12-15V, 5A et la 
tension des signaux de commande sont aux caratéristiques 
TTL. 


RACCORDEMENT AU THOMSON 


Ne disposant pas d'interface parrallèle, le raccordement 
du robot MULTISOFT s'est effectué sur la prise des 
manettes de jeu de l'interface jeu/musique. les signaux 
issus de cet interface sont compatibles avec les signaux 
de commande du robot. Im effet, l'interface utilise un PIA 
681 que nous pourrons programmer en sortie. 


gauch outon 
arrièr roite 
avant 8e 


Les points qui nous intéressent sont "arrière, avant, 
droite, gauche" lesquels correspondent à bO, bt, b2 et b3 
pour le connecteur 1, b4, b5, b6 et b7 pour le connecteur 
2. Les valeurs bO à b7 correspondent aux bits bO à b7 du 
port À du PIA 681. 


La mise à zéro du PIA port À est assurée par la fonction 
INITPRA (Pour INITialigation du PoRt A). Le bit de poids 
faible du port À est mis à 1 pour inhiber les actions du 
robot. La validation d'une action du robot étant validée 
par un front descendant sur bO du PORTA: 


HEX 
E7CC CONSTANT PORTA E7CC CONSTANT DDRA 
EYCE CONSTANT CRA 


DECIMAL 
: INITPRA ( —) 
O CRA C! 
255 DDRA C! THOMSON 
4 CRA C! ; TO7 - TO7/70 


INITPRA 1 PORTA C! 


LA COMMANDE DES MOTEURS 


Les moteurs sont sélectionnés par le nom de l'organe 
correspondant. Pour ce faire, six constantes ont été 
définies: DOIGT, MAIN, POIGNET, COUDE, EPAULE et BASE. Les 
valeurs affectées à chaque organe correspondent aux 
valeurs binaires qui seront utilisées pour sélectionner 
sur le port À la fonction correspondante. Exemple: 


POIGNET PORTA C! 


sélectionne le poignet comme étant le prochain organe à 
commander . 


Le listing de la partie activation/désactivation d'un 
organe est: 


2 CONSTANT DOIGT 
4 CONSTANT MAIN 

6 CONSTANT POIGNET 
8 CONSTANT COUDE 
10 CONSTANT EPAULE 
12 CONSTANT RASE 


CREATE PAS 
48 C, 176C, 14C, 2080, 
19 C, 2240, JC, 1120, 


Programmation du robot Multisoft 


VARIABLE ORGANE 


: SECTION ( n —) 
ORGANE ! 


: ACTIVATION ( n1 —) 
254 AND PORTA C! ; 


: DESACTIVATION ( ni —-) 
1 OR PORTA C! ; 


Les différentes positions du moteur sont sélectionnées par 
les bits b4 à b7 du port À, ce qui explique les valeurs 
attribuées au tableau PAS. Chacune de ces valeurs doit 
être complémentée à la valeur de l'organe courant et la 
valeur de commande d'activation ou de désactivation pour 
faire tourner le moteur. Ces valeurs doivent être envoyées 
dans l'ordre où elles sont définies dans PAS: 


O PAS + C POIGNET + 254 AND PORTA C! 
O PAS + C@ POIGNET + 1 OR PORTA C! 
1 PAS + Œ POIGNET + 254 AND PORTA C! etc... 
provoque la rotation du moteur du poignet d'un huitième de 
tour. 


I1 faut aussi tenir compte du fait qu'un mteur pas à pes 
possède une certaine inertie mécanique lors des 
acœélérations et décélérations. Une temporisation variable 
sera appliqée entre la commande de chaque pas du moteur 
de l'organe en mouvement. Divers essais ont montré qu'une 
temporisation optimale de 10 ms semblait nécessaire, ce 


qui permet une vitesse de rotation de (100 pas)/8, soit 
750tr/mn. Cette vitesse ne peut être appliquée 
directement, d'où les fonctions ACCELERATION et 


DECELERATION ont une montée et une descente en vitesse 
exponentielle. 


Les mots ALLERS et RETOURS activent un nombre de pas n sur 
l'organe sélectionné: 


BRAS SELECTION 100 ALLERS 
COUDE SELECTION 250 RETOURS etc... 


La mise au point des différentes valeurs de temporisation 
initiale et terminale ont demandé l'application d'un 
certain empirisme, le critère essentiel étant de produire 
des mouvements silencieux, avec des départs et des arrête 
sans heurt. Lors des premiers essais, des rampes 
d'accélérations linéaires provoquaient des à coups au 
démarrage et des sauts de pas à l'arrêt. Ceci avait pour 
conséquence, lors de mouvements en cycle fermé, de ne pas 
remettre le robot à sa position initiale. D'autres essais 
ont été réalisés avec des temporisations plus courtes 
entre deux pas, ce qui provoqumit des sautes de pas. Ces 
sautes de pas provenaient d'une baisse du couple moteur et 
se manifestaient surtout quand le bras soulevait une 
charge. Listing: 


VARIABLE DELAT 20 DELAI ! 


: ACCELERATION DELAI @ 2 / DEIAI ! ; 
: DECELERATION DELAI @ 2 * DEIAI ! ; 
VARTABLE LIMITE 


: ALLERS ( n —) 
DUP 5 - LIMITE ! O SWAP 


DO 
I 5 < IF DECELERATION THIN 
I LIMITE @ > IF ACCELERATION THEN 
I ACTION 

LOOP ; 


: RETOURS ( n ——) 
DUP 5 - LIMITE ! O SWAP 


DO 
I 5 < IF DECELERATION THEN 
I LIMITE @ > IF ACCELERATION THEN 
I ACTION 

-1 +LO0P ; 


Le programme de commande d'un organe peut être simplifié. 
Ainsi, en définissant: 


: D DOIGT 
: M MAIN 


SELECTION ; 


SELRCTION ; suite page 20 
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FORTH 


Listings complétant l'article du 
structures de données PL/I en FORTE. 


LISTING en FIG Forth: 


O VARIABLE TLEN 

O VARIABLE CLEN 

O VARTABLE FLEN 

( INITIALISE STRUCTURES VARTABLES) 
: INIT.SV TLEN ! O CLEN ! ; 


( STORE STRUCTURES VARIABLES) 
: STR.SV CLEN @ FLEN @ - , FLEN @ 


( ALIOCATE STATIC STRUCTURE) 
: 3 ( SIZE —) 
CREATE DUP ALIO? INIT.SV DOES ; 


(BEGIN FIELD DEFINITION FOR DYNAMIC STRUCTURES) 


: DS (SIZE —) INIT.SW ; 


mois 


n 


Li L 


( ALLOCATE AN ARRAY WITH A GIVEN ELEMENT SIZE) 


: S.ARRAY CREATE , ALIOT DOES»> 
DUP 2 >R @ * R> + ; 


( MVE A WHOLE STRUCTURE) 
: S.MOVE CREATE TLEN (@ , DOES> 
@ CMVE ; 


( CREATE A FIELD SIZE — 

AT.RUN TIME 

STRUCTURE-ADDRESS — FIELD ADDRESS ) 
: S.FLD CREATE CLEN @ , DUP FLEN ! 
@+ ; 


{ MOVE FROM AN ADDRESS 10 À FIELD) 
: FLD.MA CREATE STR.SV DOES> 
DUP 2+ DR @ +R> @ CMVE ; 


( MOVE FROM A FIELD TO AN ADDRESS) 

: FLD.MB CREATE STR.SV DOES> 

>R SWAP R®@ + SWAP R 2+ @® CMOVE 
( 


MOVE A FIELD HETWEEN STRUCTURES) 
FLD.M CREATE STR.SV DOES> 


>R R@ + SWAP RD@ + SUAP R 2+ @ CMOVE ; 


( MOVE AN ITEM OF À FIELD LENGTH) 
: FLD.MD CRÉATE FLEN @ , DOES 
@ CMVE ; 


(PREPARE TO DEFINE SUBFIELDS ) 
: SF CLEN À! ; 


LISTING en _79-STANDARD : 


VARIABLE TLEN 

VARIABLE CLEN 

VARIABLE FLEN 

( INITIALISE STRUCTURES VARIABLES) 
: INIT.SV TLEN ! O CLEN ! ; 


( STORE STRUCTURES VARIABLES) 
: STR.SV CLEN @ FLN @ - , FLEN @ 


( ALIQCATE STATIC STRUCTURE) 
: SS ( SIZE —) 
CREATE DUP ALIOT INIT.SV DOES> ; 


CLEN +! 


n 
L L 


(BEGIN FIELD DEFINITION FOR DYNAMIC STRUCTURES) 


: DS (-SIZE —) INIT.SV ; - 


( ALTOCATE AN ARRAY WITH À GIVEN ELEMENT SIZE) 


: S.ARRAY CREATE , ALIOT DOES> 
DUP 2+ DR @ * R + ; 


( MOVE À WHOLE STRUCTURE) 
: S.MOVE CREATE TLEN @ , DOES> 
@ CMWE ; 


{ CREATE A FIELD SIZE — 

AT.RUN TIME 

STRUCTURE-ADDRESS — FIELD ADDRESS ) 
: S.FLD CREATE CLEN @ , DUP FLEN ! 
@+ ; 
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CLEN +! 


précédent: 


DOES> 


DOES> 


: FLD.MA CREATE STR.SV DOES 
DUP 2 >R @ +R @ CMWE ; 


{ MOVE FROM A FTELD TO AN ADDRESS) 
: FLD.MB CREATE STR.SV DOESD 
>R SWAP RÈ@ + SAP R 2+ @ CMOVE ; 


( MOVE A FIELD BETWEEN STRUCTURES) 
: FLD.MC CREATE STR.SV DOES> 
SR R2@ + SAP RD@ + SWAP R 2+ @ CMNVE ; 


( MOVE AN ITEM OF À FIELD LENGTH) 
: FLD.MD CRFATE FLEN @ , DOES 
@ CMVE ; 


(PREPARE TO DEFINE SUBFIELDS) 
: SP CLEN !; | | 
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SELECTION ; 
: C COUDE SELECTION ; 
: E ÆPAULE  SELMCTION ; 
SELECTION ; 


Un cycle de commandes diverses peut donc être exprimé de 
la mnière suivante: 


HA AS Qt 
ÉECELE 
ABBÈRER 


8 
ë 


En reprenant ce cycle par le bas et en remplaçant tous les 
AL par RE et inversement, on peut faire revenir le bras à 
sa postition initiale. 
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: $! QUERY $" ; 


: TXT ( ad lg ad2 —#) 
2DUP + SWAP 

DO DROP COUNT I Ca — DUP 
IF DUP ARS / LEAVE THEN 
LOOP SWAP DROP ; 


: = (ox som — f)  DUP SMAX SWAP -TEXT ; 


LEFT (xx n) TYPE SPACE ; 


: RIGHT ( xxx n —) Eu 
OVER $LEN OVER - ROT + SWAP TYPE SPACE ; 


2” 


